Hi Tom,
What Daniel said. If you need a faster random number generator use:
http://hackage.haskell.org/package/mwc-random
Use the 'create' function to create an initial seed and then call
'uniform' repeatedly to create new random Bools.
Johan