examples/interactive-tcp.hs: work in progress