nsporillo

alice = id

bob = not

test = all success tosses
  where success (a, b) = alice a == b || bob b == a
        tosses = zip toss toss
        toss = enumFrom minBound

main = print test

nsporillo

alice = id

bob = not

test = all success tosses
  where success (a, b) = alice a == b || bob b == a
        tosses = zip toss toss
        toss = enumFrom minBound

main = print test