A haskell markov server