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