A simple echo sever in Haskell