-import "Prelude"\r
-\r
-a = [1,2,3,4]\r
-\r
-main :: [Integer]\r
-main = [x+y | x <- a, y <- a, x!=y]\r
---\r
-[3, 4, 5, 3, 5, 6, 4, 5, 7, 5, 6, 7]\r
+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]