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

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