-import "Prelude"\r
-\r
-test :: () -> [Integer]\r
-test _ = do\r
- header = [0]\r
- rows = map (\foo -> map (\bar -> bar) [foo]) [1..5]\r
- foldl (+) header rows\r
- \r
-main = test ()\r
---\r
+import "Prelude"
+
+test :: () -> [Integer]
+test _ = do
+ header = [0]
+ rows = map (\foo -> map (\bar -> bar) [foo]) [1..5]
+ foldl (+) header rows
+
+main = test ()
+--
[0, 1, 2, 3, 4, 5]
\ No newline at end of file