%!PS-Adobe-2.0                                     -*-coding:latin-1;-*-    µ
%%  Time-stamp: "2005-08-19 00:23:00 ADT"         

% desc{  a factorial function in PostScript  }  «sburke@cpan.org»

/factorial {
  dup 2 lt { pop 1 }
  { 1 exch cvi -1 1 { mul } for }
  ifelse
} bind def

% Example:
%  10 factorial ==
% shows: 3628800


% Or the really short way:
%  1  10  -1 1 { mul } for == 


%End