#443 clientLoop :: Handle -> Pipe XmlNode () IO ()