let
add_node_one_dir g v =
if
not (
Node
.
Hashtbl
.mem g v)
then
Node
.
Hashtbl
.add g v
To
.empty