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 };;