let string_of_graph g =
Printf.sprintf "%s%s %s {\n%s\n}"
(if g.strict then "strict " else "")
(string_of_graph_kind g.kind)
(match g.id with
None -> ""
| Some id -> Printf.sprintf "%s " (string_of_id id)
)
(string_of_stmt_list g.kind g.stmt_list)