On 14-01-03 11:28 AM, Rob Arthan wrote: > roll n = take n . randomRs ('1', '6') . mkStdGen $ n > > However, this produces a string beginning with a '6' for 0 <= n <= 53667. It seems to me such small numbers do not have enough entropy to be worthy seeds to begin with. Say, in the 64-bit binary form of 53667, how many consecutive 0's are there?