kill(all);

z(a,b):= a+b*%i;

f(a,b):=log(z(a,b))/log(%i);

f(0,2);

realpart(f(0,2));

imagpart(f(0,2));

f(x,y);

solve(%,y);