let group_of_string s =
  group_of_source (XmlParser.SString s)