RosettaCodeData/Task/User-input-Text/Forth/user-input-text-5.fth

: input#
  begin
    refill drop bl parse-word          ( a n)
    number error?                      ( n f)
  while                                ( n)
    drop                               ( --)
  repeat                               ( n)
;