let xml_of_string (s : string) : Xml.xml = Xml.PCData (pcdata_of_string s)