10 lines
202 B
Haskell
10 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])
|