[Veedrac]

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