RosettaCodeData/Task/Integer-sequence/Retro/integer-sequence.retro

2 lines
55 B
Plaintext

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