functor (G : G)
  (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 : Stdlib.Format.formatter -> Graphml.G.t -> unit end