let undirect graph = let gr = UG.create () in G.iter_edges (UG.add_edge gr) graph; G.iter_vertex (UG.add_vertex gr) graph; gr