Creating a loglogplot from ploting a sequence of functions

Hey Guys,

I am trying to plot a graph using the following code:

with(plots); restart;
a := sum(m^i*exp(-m)/factorial(i), i = 0 .. c);
l := [];
for c from 0 to 40 do
l := [op(l), a]
end do;
plotlist := [seq(plot(l[n], m = 0 .. 40), n = 1 .. nops(l))];
plots[display](plotlist);

I would like to plot this fuction as a loglogplot.  Can anyone help me with this?

Thanks in Advance