let
( ++ )
x
y
= {
r
=
x
.
r
+.
y
.
r
;
i
=
x
.
i
+.
y
.
i
}
and
( ** )
x
y
=
{
r
=
x
.
r
*.
y
.
r
-.
x
.
i
*.
y
.
i
;
i
=
x
.
r
*.
y
.
i
+.
x
.
i
*.
y
.
r
};;