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

slightly less Haskell :)

https://gist.github.com/Chronial/e091dc5deb9234a2a7a1

But slightly more Haskell... ;)