%% syntaxe : array sum --> s = somme des elements de array /sum { 1 dict begin /liste exch def liste aload pop liste length 1 sub {add} repeat end } def