usr/src/common/ficl/test/fib.fr

   1 : fib ( n1 -- n2 )
   2     dup 1 > if
   3         dup
   4         1- recurse
   5         swap 2 - recurse
   6         +
   7     then ;
   8
   9
  10 35 value nfibs
  11 : fibtest nfibs fib . cr ;