examples/chat-tcp.hs