generateTweet :: (Ord a, RandomGen g) => g -> [a] -> [a]
generateTweet rnd input =
    take 140 $ MC.run 4 input 0 rnd
generateTweet :: (Ord a, RandomGen g) => g -> [a] -> [a]
generateTweet rnd input =
    take 140 $ MC.run 4 input 0 rnd
generateTweet rnd input =
    take 140 $ MC.run 4 input 0 rnd