ref: 7f9d4b6b1756a549056dfcb9b3763c23a4cf3789 dir: /test/fib.fr/
: fib ( n1 -- n2 ) dup 1 > if dup 1- recurse swap 2 - recurse + then ; 35 value nfibs : fibtest nfibs fib . cr ;