functor (B : Builder.S->
  functor
    (L : sig
           val node : Dot_ast.node_id -> Dot_ast.attr list -> B.G.V.label
           val edge : Dot_ast.attr list -> B.G.E.label
         end->
    sig
      val parse : string -> B.G.t
      val parse_bounding_box_and_clusters :
        string -> B.G.t * string * Dot.clusters_hash
    end