> plot([2^x,1+(2^0.00001-1)/(0.00001)*x],x=-2..2,y=0..3,color=[blue,red]);
> plot([2.71828^x,1+(2.71828^0.00001-1)/(0.00001)*x],x=-2..2,y=0..3,color=[blue,red]);
> plot([3^x,1+(3^0.00001-1)/(0.00001)*x],x=-2..2,y=0..3,color=[blue,red]);
>