%% syntaxe : array prod --> p = produit des elements de array /prod { 1 dict begin /liste exch def liste aload pop liste length 1 sub {mul} repeat end } def