random.hs

import System.Random

randPairs :: (RandomGen g, Random a) => (a,a) -> g -> [(a,a)]
randPairs range gen = zip as bs
  where  (a,b) = split gen      -- create two separate generators
         as = randomRs range a  -- one infinite list of randoms
         bs = randomRs range b  -- another

seed   = 13561956 :: Int
mygen  = mkStdGen seed

coords :: [(Int,Int)]
coords = take 50 $              -- 50 random coordinates derived
     randPairs (1,100) mygen    -- from the random seed above