cvs/stack/fac.st

#! ./stack

[
        1 1 rot; to;
        foreach
                *
        do;
] fac def;

10 fac;
print;
1	masse	1.1	#! ./stack
2
3			[
4			1 1 rot; to;
5			foreach
6			*
7			do;
8			] fac def;
9
10			10 fac;
11			print;