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