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

: integers  1 while( true ) [ dup . 1+ ] ;