TYPED: fib ( n: fixnum -- m: fixnum )
   [ 1 1 ] dip [ tuck + ] times ;