RosettaCodeData/Task/Integer-sequence/Forth/integer-sequence.fth

: ints ( -- )
  0 begin 1+ dup cr u. dup -1 = until drop ;