#442 serverps.hs: TChanを使った実装