cvs/stack/fib2.st

#! ./stack

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

45 fib2;
print;
1	masse	1.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	masse	1.2	45 fib2;
15	masse	1.1	print;