import Data.Char

foo = map chr . map (+ ord 'a')
bar = filter even
gee x y = (x, y)

main =
    let x = [1,2,3]
        y = [4,5,6]
    in print $ do
        a <- foo x
        b <- bar y
        return $ gee a b