# convert power e^x to pow(e,x); # topow(exp(x_)) := pow(e,x); # topow(sqrt(x_)) := pow(x,1/2); # topow(cbrt(x_)) := pow(x,1/3); topow(a_^b_):=pow(a,b);