let find_node (graph : graph) (id : nodeid) : node = try Hashtbl.find graph id with Not_found -> new_node graph id Unrestricted