type attribute = [ | `Color of string| `Shape of string| `Weight of int| `Style of string| `Label of string| `Other of string * string ]Dot attribute
val pp_enum :
?eq:('id -> 'id -> bool) ->
?hash:('id -> int) ->
name:string ->
Format.formatter ->
('id, attribute list, attribute list) Full.traverse_event Sequence.t ->
unitval pp :
name:string ->
('id, attribute list, attribute list) t ->
Format.formatter ->
'id Sequence.t ->
unitPretty print the given graph (starting from the given set of vertices) to the channel in DOT format