2. Re and Im

:
 re(z) <> im((+- 1 - i)*z); t,+- 2*t
 re(z) <> im((+- 1 - i)*conj(z)); t,-+ 2*t
 re(z) <> im((+- 1 + i)*z); t,0
:
 im(z) <> re((+- 1 + i)*z); 2*t,+- t
 im(conj(z)) <> re((+- 1 - i)*z); 2*t,-+ t
 im(z) <> re((+- 1 - i)*z); 0,t
