cvs/stack/fib2.st

#! ./stack

[
        0 1
        rot; 2 swap;
        [
                toss;
                dup;
                rot;
                +;
        ] for;
] fib2 def;

20 fib2;
print;
1	#! ./stack
2
3	[
4	0 1
5	rot; 2 swap;
6	[
7	toss;
8	dup;
9	rot;
10	+;
11	] for;
12	] fib2 def;
13
14	20 fib2;
15	print;