generateFrom1GramMC :: (RandomGen g) => MarkovChain String -> g -> [String]
    generateFrom1GramMC m g = unfoldr (nextElement m) (emptyNGram 1, g)
generateFrom1GramMC :: (RandomGen g) => MarkovChain String -> g -> [String]
generateFrom1GramMC m g = unfoldr (nextElement m) (emptyNGram 1, g)
generateFrom1GramMC m g = unfoldr (nextElement m) (emptyNGram 1, g)