let add_node_in_list node node_list =
let is_node_in node node_list =
let is_node n = (Node.compare node n) = 0 in
try let _ = List.find is_node node_list in true
with Not_found -> false
in
if is_node_in node node_list
then node_list, false
else (node :: node_list), true