let fold_e_one_dir ?(rev=false) f g v =
    let to_ = Node.Hashtbl.find g v in
    To.fold (fun v' lbl acc ->
      f (if rev then (v', lbl, v) else (v, lbl, v' : E.t)) acc) to_