new file.
input Program.
compute #n = 100.
compute fac = 0.
loop #i = 1 to #n.
compute fac =fac + ln(#i).
end loop.
compute f = exp(fac).
end case.
leave f.
end file.
end input program.
execute.