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