let
att_of_xml =
function
Xml
.
Element
(
"li"
,_,_)
->
(
""
,
""
)
|
e
->
fail e
"att_of_xml"