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