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