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