#107 asyncClient.hs: use TChan