let
bool_of_xml =
function
Xml
.
Element
(
"True"
,_,_)
->
true
|
_
->
false