functor (Ops : Math.Ops->
  functor
    (Source : sig
                type t = Ops.t
                val genrand : unit -> Rand.RNGSource.t
                val min : Rand.RNGSource.t
                val max : Rand.RNGSource.t
              end->
    sig
      type t = Ops.t
      val genrand : unit -> Rand.RNGSource.t
      val min : Rand.RNGSource.t
      val max : Rand.RNGSource.t
    end