listToCArrayStr :: Show a => [a] -> String
listToCArrayStr xs = '{':((concat $ Data.List.intersperse "," (map show xs)) ++ "}")
listToCArrayStr :: Show a => [a] -> String
listToCArrayStr xs = '{':((concat $ Data.List.intersperse "," (map show xs)) ++ "}")
listToCArrayStr xs = '{':((concat $ Data.List.intersperse "," (map show xs)) ++ "}")