Nmm_ocaml : Main.normalize_axml

let normalize_axml_file (path : string) : string =
        let axml:Xml.xml =
                match path with
                |"-" -> Xml_right.parse_stdin false
                |_ -> Xml_right.parse_file false path 
	in
        "<?xml version=\"1.0\"?>\n" ^ 
        (Xml_right.to_string_fmt (Axml_of_doc.normalize_axml axml))