Unless you are just try to learn recursion, I really don't think there's a need for it here

Code:

Function unbitwise($x)
   dim $c, $ret
   while $x > 0
      $c = 1
      while $c*2 <= $x
         $c = $c*2
      loop
      $ret = + $ret + "," + $c 
      $x = $x - $c
   loop
   $unbitwise = substr($ret,2)
endfunction
_________________________
Eric