/Poisson { 1 dict begin /lambda exch def dup factorielle exch lambda exch exp lambda neg Exp mul exch %% l^ke^(), k! div end } def