randRange :: (Word32, Word32) -> IO Word32
randRange rng = withSystemRandom (\x -> uniformR rng x :: IO Word32)
randRange :: (Word32, Word32) -> IO Word32
randRange rng = withSystemRandom (\x -> uniformR rng x :: IO Word32)
randRange rng = withSystemRandom (\x -> uniformR rng x :: IO Word32)