warned = unsafePerformIO $ newIORef False
+-- | Seed a PRNG with data from the system's fast source of pseudo-random
+-- numbers. All the caveats of 'withSystemRandom' apply here as well.
+createSystemRandom :: IO GenIO
+createSystemRandom = withSystemRandom (return :: GenIO -> IO GenIO)
-- | Compute the next index into the state pool. This is simply
nextIndex :: Integral a => a -> Int