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