2 lines
55 B
Text
2 lines
55 B
Text
|
#0 [ [ n:put spa ] sip n:inc dup n:-zero? ] while drop
|