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