Module Genprintval

module type OBJ = sig ... end
module type EVALPATH = sig ... end
module User_printer : sig ... end
module type S = sig ... end
module Make (O : OBJ) (_ : EVALPATH with type valu = O.t) : S with type t = O.t