let channel_of_string s =
  channel_of_source (XmlParser.SString s)