import "Prelude"

a = [1, 2]
b = [5, 6]

main = mdo 
  x <- a
  y <- b
  return (x+y) 
--
[6, 7, 7, 8]