type t
val parse_xml_uri : string -> t
val parse_xml_string : string -> t
+ val save : t -> string -> unit
+ val load : ?sample:int -> string -> t
+ val tag_pool : t -> Tag.pool
val string : t -> string
val descr : t -> descr
val left : t -> t
module Binary : BINARY
+IFDEF DEBUG
+THEN
module DEBUGTREE : sig
include BINARY
val print_stats : Format.formatter -> unit
end
+ENDIF