35 constant /fib

: fib ( n -- n' )
  dup 1 > if
    dup  1-  recurse  
    swap 2 -  recurse  
    + 
  then ;

: (fib2) ( accu n -- accu' )
  dup 2 < if  + exit  then
  tuck 1-   ( n accu n-1) recurse
  swap 2 -  ( accu'  n-2) recurse ;

: fib2 0 swap (fib2) ; ( n -- n' )

 /fib fib 
 /fib fib2 
." done"