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