sig
  type attr = string * string
  type xml = Tag of string * Xml.attr list * Xml.xml list | PCData of string
  val show : Xml.xml -> string
  val parse_ch : Pervasives.in_channel -> Xml.xml
  val parse_file : string -> Xml.xml
  val parse_string : string -> Xml.xml
  val getname : Xml.xml -> string
  val getchild : string -> Xml.xml -> Xml.xml
  val ( %% ) : Xml.xml -> string -> Xml.xml
  val getchildren : Xml.xml -> Xml.xml list
  val pcdata : Xml.xml -> string
  val childpc : Xml.xml -> string
  val ( %%% ) : Xml.xml -> string -> string
  val ( %%< ) : Xml.xml -> string -> Xml.xml list
  val attr : string -> Xml.xml -> string
end