loipoisson(L):={
  local x, y, dx, I, T, k, l, c;
  x:=L[0];
  y:=L[1];
  dx:=L[2];
  c:=L[0]+1;
  T:="\\begin{tabular}{*{"+c+"}{|c}|}
       \\hline \\backslashbox{$k$}{$\\lambda$} ";
  for(l:=dx; l<=dx*x; l:=l+dx)
  {
          T:=T+" & \\cellcolor{Moccasin}"+l;
  }
  T:=T+"\\\\\\hline";
  for(k:=0; k<=y; k:=k+1)
  {
          for(l:=0; l<=dx*x; l:=l+dx)
          {
                  if(l==0)
                  then{T:=T+"\\cellcolor{Moccasin}"+k+"&"}
                  else
                  {
                          I:=evalf(exp(-l)*(l^k)/factorial(k));
                          if(l==dx*x)
                          then{T:=T+latex(I)+"\\\\\\hline"}
                          else{T:=T+latex(I)+"&"}
                  }
                 }
  }
  T:=T+"\\end{tabular}";
}
:;