let open Quaternion in x * y + x
module Quaternion = struct let (+) = ... let ( * ) = ... end
let open Quaternion in
x * y + z