#81 myServer.hsのリファクタリング: withClientを使用