sig
  val ( +! ) : Creal.t -> Creal.t -> Creal.t
  val ( -! ) : Creal.t -> Creal.t -> Creal.t
  val ( *! ) : Creal.t -> Creal.t -> Creal.t
  val ( /! ) : Creal.t -> Creal.t -> Creal.t
end