import "Prelude"

a = [1,2,3,4]

main :: [Integer]
main = [x+y | x <- a, y <- a, x!=y]
--
[3, 4, 5, 3, 5, 6, 4, 5, 7, 5, 6, 7]