[ [] swap
[ 2 /mod digit
swap dip join
dup not until ]
drop reverse ] is bin ( n --> $ )
5 bin echo$ cr
50 bin echo$ cr
9000 bin echo$ cr