# convert pow(e,x) to power e^x;

topower(a_,b_):=a^b;
topower(exp(log(b_)*x_)):=b^x;
topower(exp(a_*log(b_))):=b^a;
topower(exp(a_*log(b_)*x_)):=b^(a*x);