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