construct1GramMC :: [String] -> MarkovChain String
    construct1GramMC = snd . foldl' addElement (emptyNGram 1, empty)
construct1GramMC :: [String] -> MarkovChain String
construct1GramMC = snd . foldl' addElement (emptyNGram 1, empty)
construct1GramMC = snd . foldl' addElement (emptyNGram 1, empty)