let parse_qname s =
  parse_opt_string "QNAME" qname_re s