Source PostScript (Anp.pps)

%% syntaxe : n p Anp --> A_n^p
/Anp {
3 dict begin
   /p exch def
   /n exch def
   n
   p 1 sub {
      /n n 1 sub store
      n mul
   } repeat
end
} def