: fib dup 2 < unless 1- dup recurse swap 1- recurse + then ;
10 fib . cr