--- /dev/null
+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
+[0, 1, 2, 3, 4, 5]
\ No newline at end of file