gforth: gforth/vmgen-ex/fib.mini

1 :	anton	1.1	func fib(n)
2 :			var r;
3 :			if n<2 then
4 :			r:=1;
5 :			else
6 :			r:=fib(n-1)+fib(n-2);
7 :			end if;
8 :			return r;
9 :			// the language syntax (return only at end) leads to inefficient code here
10 :			end func;
11 :
12 :			func main()
13 :			return fib(34);
14 :			end func;