functor (B : Builder.S)
  (L : sig
         val node : Gml.value_list -> B.G.V.label
         val edge : Gml.value_list -> B.G.E.label
       end)
  -> sig val parse : string -> B.G.t end