Random.hs

import Control.Monad
import Control.Applicative
import System.Random

randomRnIO :: Random a => Int -> (a, a) -> IO [a]
randomRnIO n r = sequence $ replicate n (randomRIO r)

points :: IO [(Int, Int)]
points = liftM2 zip (randomRnIO 10 (0, 100)) (randomRnIO 10 (0, 100))

main = do
  print =<< points
  print =<< points              -- Different output

  ps <- points
  print ps
  print ps                      -- Same output