strListToCArrayStr :: [String] -> String 
strListToCArrayStr xs = '{':((concat $ Data.List.intersperse "," xs) ++ "}")
strListToCArrayStr :: [String] -> String
strListToCArrayStr xs = '{':((concat $ Data.List.intersperse "," xs) ++ "}")
strListToCArrayStr xs = '{':((concat $ Data.List.intersperse "," xs) ++ "}")