let bad_format s = Printf.sprintf "Unexpected XML: %s" s