let
group_of_string s =
group_of_source (
XmlParser
.
SString
s)