sig
  type xml_node_type = [ `Attribute | `Cdata | `Element | `Text ]
  type xml =
      [ `Attribute
      | `Cdata
      | `Element
      | `Name of string
      | `Namespace of string
      | `Prefix of string
      | `Text ] list
  val name : [> `Name of 'a ] list -> 'a
  val prefix : [> `Prefix of 'a ] list -> 'a
  val namespace : [> `Namespace of 'a ] list -> 'a
  val node_type : ([> GdataCore.Metadata.xml_node_type ] as 'a) list -> 'a
  val description : GdataCore.Metadata.xml -> string
end