globalSeed :: IORef Seed
globalSeed = unsafePerformIO $ getSeedIO >>= newIORef
globalSeed :: IORef Seed
globalSeed = unsafePerformIO $ getSeedIO >>= newIORef
globalSeed = unsafePerformIO $ getSeedIO >>= newIORef