1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

: fib ( n1 -- n2 )
    dup 1 > if
	dup
	1- recurse
	swap 2 - recurse
	+
    then ;


35 value nfibs
: fibtest nfibs fib . cr ;