fork download
  1. import Data.Char
  2.  
  3. foo = map chr . map (+ ord 'a')
  4. bar = filter even
  5. gee x y = (x, y)
  6.  
  7. main =
  8. let x = [1,2,3]
  9. y = [4,5,6]
  10. in print $ do
  11. a <- foo x
  12. b <- bar y
  13. return $ gee a b
  14.  
Success #stdin #stdout 0s 5636KB
stdin
Standard input is empty
stdout
[('b',4),('b',6),('c',4),('c',6),('d',4),('d',6)]