functor (Ops : Genops.Ops->
  sig
    type t = Ops.t
    val ( += ) : Numref.REFOPS.t Pervasives.ref -> Numref.REFOPS.t -> unit
    val ( -= ) : Numref.REFOPS.t Pervasives.ref -> Numref.REFOPS.t -> unit
    val ( *= ) : Numref.REFOPS.t Pervasives.ref -> Numref.REFOPS.t -> unit
    val ( /= ) : Numref.REFOPS.t Pervasives.ref -> Numref.REFOPS.t -> unit
  end