let string_of_xml = function
  | Xml.PCData s -> unescape s
  | e -> fail e "string_of_xml"