: fib ( n1 -- n2 )
dup 1 > if
dup
1- recurse
swap 2 - recurse
+
then ;
35 value nfibs
: fibtest nfibs fib . cr ;