sig
  type graph
  and node
  val iter_nodes :
    (Avl_topo.GRAPH.node -> unit) -> Avl_topo.GRAPH.graph -> unit
  val iter_successors :
    (Avl_topo.GRAPH.node -> unit) -> Avl_topo.GRAPH.node -> unit
  val get : Avl_topo.GRAPH.node -> int
  val set : Avl_topo.GRAPH.node -> int -> unit
end