1: fib ( n1 -- n2 ) 2 dup 1 > if 3 dup 4 1- recurse 5 swap 2 - recurse 6 + 7 then ; 8 9 1035 value nfibs 11: fibtest nfibs fib . cr ; 12