9 lines
202 B
Haskell
9 lines
202 B
Haskell
#!/usr/bin/env runhaskell
|
|
|
|
import System.Entropy
|
|
import Data.Binary.Get
|
|
import qualified Data.ByteString.Lazy as B
|
|
|
|
main = do
|
|
bytes <- getEntropy 4
|
|
print (runGet getWord32be $ B.fromChunks [bytes])
|