(
  symbol bin
  (int :i ==> str :s)
  (i (dup 2 <) 'string ('odd? ("1") ("0") if swap 1 shr) 'prefix linrec @s)
) ::

(0 1 2 5 50 9000) 'bin map ", " join puts!