[tmhedberg]

`zip toss toss` only produces 2 of the possible outcomes. Try `liftA2 (,) toss toss` instead.

[Veedrac]

There's always [(a, b) | a <- toss, b <- toss]. It's not as Haskell-y, but it's simpler.