Function unbitwise($x, optional $factor)
    if vartypename($factor) = "Empty"
        $factor = 1
    else
        $factor = 2 * $factor
    endif
    if $x >= $factor
        $unbitwise = "" + iif(($factor & $x), "," + $factor, "") + unbitwise($x, $factor)
    endif
    if $factor = 1
        $unbitwise = substr($unbitwise,2)
        Dim $array
        $array = split($unbitwise,",")
        $unbitwise = ""
        for $x=ubound($array) to 0 step -1
            $unbitwise = "" + $unbitwise + "," + $array[$x]
        next
        $unbitwise = substr($unbitwise,2)
    endif
EndFunction