A really simple chatserver written in haskell