3 lines
114 B
Text
3 lines
114 B
Text
DEFINE bin == "" [pop 1 >] [[2 div "01" of] dip cons] while ["01" of] dip cons.
|
|
|
|
[0 1 2 5 50 9000] [bin] map put.
|