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