RosettaCodeData/Task/Fibonacci-sequence/Forth/fibonacci-sequence-1.fth

: fib ( n -- fib )
  0 1 rot 0 ?do  over + swap  loop drop ;