let group_of_channel c =
  group_of_source (XmlParser.SChannel c)