`functor (G : G) ->
functor
(L : sig
val vertex_properties : (string * string * string option) list
val edge_properties : (string * string * string option) list
val map_vertex : Graphml.G.vertex -> (string * string) list
val map_edge : Graphml.G.E.t -> (string * string) list
val vertex_uid : Graphml.G.vertex -> int
val edge_uid : Graphml.G.E.t -> int
end) ->
sig val print : Format.formatter -> Graphml.G.t -> unit end`