Graph.DGraphModelclass type [!'vertex, !'edge, !'cluster] abstract_model = object ... endmodule DotG : sig ... endtype dotg_model = (DotG.vertex, DotG.edge, cluster) abstract_modelval read_dot : ?cmd:string -> string -> dotg_modelval read_xdot : string -> dotg_model