>>> import System.Random >>> import Data.ByteString.Short (unpack) >>> let pureGen = mkStdGen 137 >>> unpack . fst $ uniformShortByteString 10 pureGen [51,123,251,37,49,167,90,109,1,4]