8 lines
42 B
Text
8 lines
42 B
Text
|
1
|
||
|
|
|
||
|
|
while /= -- dup dup:
|
||
|
|
!. dup
|
||
|
|
++
|
||
|
|
|
||
|
|
drop
|