let
node_set_of_list l =
List
.fold_left (
fun
acc n
->
NodeSet
.add n acc)
NodeSet
.empty l