expo := proc(n)
  local i;
  sum(x^i/(i!),i=0..n);
end;