let rec normalize_axml (xml : Xml.xml) : Xml.xml = match xml with |Xml.Element ("cs_txt_units", attr_list, xml_list) -> Xml.Element ("cs_txt_units", attr_list, normalize_axml_txt_units xml_list) |Xml.Element (tag, attr_list, xml_list) -> Xml.Element (tag, attr_list, List.map normalize_axml xml_list) |Xml.PCData s -> Xml.PCData s