/* Factorials using the pre-processor. */
test: procedure options (main);
declare (x, y) fixed decimal;
x = 24;
put ('factorial 4 is ', x);
y = 720;
put skip list ('factorial 6 is ', y);
end test;