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

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