-import "Prelude"\r
-\r
-csvWrite :: String -> [[String]] -> <Proc> ()\r
-csvWrite fname rows = ()\r
-\r
-/// Like writeEntries but with a transformer function also for values.\r
-/// kfun key + vfun value should have the length of header.\r
-writeEntries' :: (k -> [String]) -> (v -> [String])\r
- -> String -> [String] -> [(k, v)] -> <Proc> ()\r
-writeEntries' kfun vfun fname header rows =\r
- csvWrite fname $ [header] + [kfun k + vfun v | (k, v) <- rows]\r
- \r
-main = "OK"\r
---\r
+import "Prelude"
+
+csvWrite :: String -> [[String]] -> <Proc> ()
+csvWrite fname rows = ()
+
+/// Like writeEntries but with a transformer function also for values.
+/// kfun key + vfun value should have the length of header.
+writeEntries' :: (k -> [String]) -> (v -> [String])
+ -> String -> [String] -> [(k, v)] -> <Proc> ()
+writeEntries' kfun vfun fname header rows =
+ csvWrite fname $ [header] + [kfun k + vfun v | (k, v) <- rows]
+
+main = "OK"
+--
OK
\ No newline at end of file