rand :: IO Intrand = do r <- newStdGen let (x1, r2) = randomR (0,1) r print x1 return x1
rand :: IO Floatrand = do r <- newStdGen let (x1, r2) = randomR (0.0::Float,1.0::Float) r print x1 return x1