kill(all)$

van=facebook.com/LearningCalculus$

z:x+%i*y;

f(x,y):=z^z;

a:realpart(f(x,y));
b:imagpart(f(x,y));

subst(e,%e,a);
subst(e,%e,b);