# log(x) is natural log of base e;
# log(x,n) is log(x) of base n;
# expand(log(a_*b_)) := log(a)+log(b);
# expand(log(a_^b_)) := b*log(a);
log(a_=b_) := log(a)=log(b);
log(a_^b_) := if(a>0,b*log(a));
#log(-1):=pi*i;
log(1):=0;
log(e):=1;
log(1/x_):= -log(x);
log(exp(x_)) := x;
log(exp(x_)*f_) := log(f)+x;
log(x_,a_):=log(x)/log(a);