-\r
-data List a = Nil | Cons a (List a)\r
-\r
-//first :: List Integer -> Integer\r
-first Nil = 0 :: Integer\r
-first (Cons x _) = x\r
-\r
-main = first (Cons (9 :: Integer) (Cons (8 :: Integer) Nil))\r
---\r
+
+data List a = Nil | Cons a (List a)
+
+//first :: List Integer -> Integer
+first Nil = 0 :: Integer
+first (Cons x _) = x
+
+main = first (Cons (9 :: Integer) (Cons (8 :: Integer) Nil))
+--