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

2 lines
48 B
Plaintext

0 [ [ putn space ] sip 1+ dup 0 <> ] while drop