let string_of_graph_kind = function
    Graph -> "graph"
  | Digraph -> "digraph"