sig
  module type G =
    sig
      type t
      module V : Sig.COMPARABLE
      val succ : Clique.G.t -> V.t -> V.t list
      val fold_vertex : (V.t -> '-> 'a) -> Clique.G.t -> '-> 'a
    end
  module Bron_Kerbosch :
    functor (G : G->
      sig val maximalcliques : Clique.G.t -> G.V.t list list end
end