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