-\r
-\r
-class Foo a where\r
- foo :: a\r
- \r
-data List a = Nil | Cons a (List a)\r
-\r
-r x = Cons foo (r x)\r
-\r
-main = (1.0 :: Double)\r
---\r
+
+
+class Foo a where
+ foo :: a
+
+data List a = Nil | Cons a (List a)
+
+r x = Cons foo (r x)
+
+main = (1.0 :: Double)
+--
1.0
\ No newline at end of file