sig
  val xml_declaration :
    (string -> int -> int -> unit) ->
    ?encoding:string -> ?endline:bool -> unit -> unit
  type text_context
  val open_text : (string -> int -> int -> unit) -> Web__XML.text_context
  val close_text : Web__XML.text_context -> unit
  val text_output_substring :
    Web__XML.text_context -> string -> int -> int -> unit
  val text_output_string : Web__XML.text_context -> string -> unit
  type attribute_context
  val open_attribute :
    (string -> int -> int -> unit) -> string -> Web__XML.attribute_context
  val close_attribute : Web__XML.attribute_context -> unit
  val attribute_output_substring :
    Web__XML.attribute_context -> string -> int -> int -> unit
  val attribute_output_string : Web__XML.attribute_context -> string -> unit
end