foo
= map chr
. map (+ ord
'a')gee x y = (x, y)
main =
let x = [1,2,3]
y = [4,5,6]
a <- foo x
b <- bar y
aW1wb3J0IERhdGEuQ2hhcgoKZm9vID0gbWFwIGNociAuIG1hcCAoKyBvcmQgJ2EnKQpiYXIgPSBmaWx0ZXIgZXZlbgpnZWUgeCB5ID0gKHgsIHkpCgptYWluID0KICAgIGxldCB4ID0gWzEsMiwzXQogICAgICAgIHkgPSBbNCw1LDZdCiAgICBpbiBwcmludCAkIGRvCiAgICAgICAgYSA8LSBmb28geAogICAgICAgIGIgPC0gYmFyIHkKICAgICAgICByZXR1cm4gJCBnZWUgYSBiCg==
[('b',4),('b',6),('c',4),('c',6),('d',4),('d',6)]