path: root/usr/src/common/ficl/test/fib.fr

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


35 value nfibs
: fibtest nfibs fib . cr ;