Echo server written in Haskell