Nmm_ocaml : Exml_utils.normalize

let rec normalize_exml (xml : Xml.xml) : Xml.xml =
        match xml with
        |Xml.Element (tag, attr_list, xml_list) -> (
                match tag with
                |"blk_txt"
                |"dsp_line_main"
                |"par_hdr_inline"
                |"par_hdr"
                |"sec_hdr"
                |"ch_hdr" -> Xml.Element (tag, attr_list, normalize_exml_txt_units xml_list)
                |_ -> Xml.Element (tag, attr_list, List.map normalize_exml xml_list)
        )
        |Xml.PCData s -> Xml.PCData s