/LM 72 def /Times-Roman findfont 15 scalefont setfont /nstr 7 string def /newline { currentpoint 16 sub exch pop LM exch moveto} def /factorial { dup 1 gt {dup 1 sub factorial mul} if } def /prt-n {nstr cvs show} def /prtFactorial { dup prt-n (! = ) show factorial prt-n newline} def LM 600 moveto 1 1 10 {prtFactorial} for showpage