default(realprecision,38);
w=quadgen(5);
w^0
w+1.
w+(I+0.)
1.*w
(I+0.)*w
norm(w)
norml2(w)
trace(w)
trace(1+0*w)
