Module Graph.Contraction

module type G = sig ... end
module Make (G : G) : sig ... end