Fibonacci numbers in Forth

Example for versions gforth 0.7.0

This example uses recursive definition of Fibonacci numbers. 

: fib-rec
  dup 2 u< if exit then
  1- dup recurse  swap 1- recurse  + ;
 
: lp
  1 do
    i dup fib-rec . ." , "
  loop drop ;
 
17 lp
." ..."