`sig
val is_directed : bool
type t
val nb_vertex : Coloring.GM.t -> int
module V : Sig.COMPARABLE
val out_degree : Coloring.GM.t -> V.t -> int
val iter_vertex : (V.t -> unit) -> Coloring.GM.t -> unit
val fold_vertex : (V.t -> 'a -> 'a) -> Coloring.GM.t -> 'a -> 'a
val iter_succ : (V.t -> unit) -> Coloring.GM.t -> V.t -> unit
val fold_succ : (V.t -> 'a -> 'a) -> Coloring.GM.t -> V.t -> 'a -> 'a
module Mark : sig val get : V.t -> int val set : V.t -> int -> unit end
end`