Module Graph.Contraction

module type G = sig ... end
module Make : functor (G : G) -> sig ... end