let print oc p =
  output_string oc (string_of_graph p)