sig
  val fold : (GraphDeps.V.t -> '-> 'a) -> GraphDeps.t -> '-> 'a
  val iter : (GraphDeps.V.t -> unit) -> GraphDeps.t -> unit
end