--- /dev/null
+\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
+9
\ No newline at end of file