class Random a where
   randomR :: RandomGen g => (a, a) -> g -> (a, g)
   random  :: RandomGen g => g -> (a, g)

   randomRs :: RandomGen g => (a, a) -> g -> [a]
   randoms  :: RandomGen g => g -> [a]

   randomRIO :: (a,a) -> IO a
   randomIO  :: IO a

instance Random Int where

...		       

instance Random Integer where

...		       

instance Random Float where

...		       

instance Random Double where

...		

instance Random Bool where

...

instance Random Char where

...