Простой чат на языке Haskell