RosettaCodeData/Task/Integer-sequence/Retro/integer-sequence.retro
2019-09-12 10:33:56 -07:00

1 line
55 B
Text

#0 [ [ n:put spa ] sip n:inc dup n:-zero? ] while drop