: fib ( n -- fib )
  dup 2 < if drop 1 exit then
  dup  1 - fib
  swap 2 - fib + ;

: .fibs ( n -- )
  1+ 0 do
    i fib .
  loop ;

10 .fibs cr