let
print oc p =
output_string oc (string_of_graph p)