Случайный Хаскелл

randomRIO :: (Random a, MonadIO m) => (a, a) -> m a 
>>> randomRIO (2020, 2100) :: IO Int
2040
-- A variant of randomRM that uses the global pseudo-random number generator globalStdGen
Captain Bubbles