plot[{e^x,1+x+x^2/2!+x^3/3!+x^4/4!},{x,0,10}]