Chat server in Haskell, for playing with concurrency primitives.