A simple TCP Server written in Haskell