markov generator in haskell