kill(all)$

van=facebook.com/LearningCalculus$

s(a,b):=a+b*%i$

expand(s(a,b)*s(a,-b));