Markov text generator written in Haskell