[Haskell-cafe] Random pattern generation with list comprehensions