Simples TCP demos done in Haskell