9 lines
177 B
Text
9 lines
177 B
Text
[ [] 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
|