cvs/stack/fac.st

#! ./stack

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

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