functor
  (B : Builder.S) (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