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