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