35 constant /fib

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

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

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

 /fib fib 
 /fib fib2 
." done"