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