Section 18.2
function Complex mul(Complex a, b);
mul.r = (a.r * b.r) + - (a.i * b.i);
mul.i = (a.r * b.i) + (a.i * b.r);
endfunction