6 lines
54 B
Text
6 lines
54 B
Text
|
1024
|
||
|
|
[ dup 0 > while
|
||
|
|
dup echo cr 2 /
|
||
|
|
again ]
|
||
|
|
drop
|