import Random

main = do a <- drawInt 1 10
 	  b <- drawInt 1 10
 	  x <- drawDouble 0.0 1.0
 	  print a
	  print b
	  print x

drawInt :: Int -> Int -> IO Int
drawInt x y = getStdRandom (randomR (x,y))
	   
drawDouble :: Double -> Double  -> IO Double
drawDouble x y = getStdRandom (randomR (x,y))