type t = int
type pool
+type operations = {
+ tag : pool -> string -> t;
+ to_string : pool -> t -> string;
+ nullt : pool -> t;
+ translate : pool -> t -> t
+}
+
val tag : string -> t
val document_node : t
val attribute_data_close : t
-val init : pool -> unit
+val init : pool -> (* operations -> *) unit
val to_string : t -> string
val compare : t -> t -> int
val equal : t -> t -> bool