let
channel_of_string s =
channel_of_source (
XmlParser
.
SString
s)