Haskell WebSockets example
Join
Username:
Users
Chat