json_to_string (Array x) = "["++intercalate "," (map json_to_string x) ++ "]"
json_to_string (Array x) = "["++intercalate "," (map json_to_string x) ++ "]"
json_to_string (Array x) = "["++intercalate "," (map json_to_string x) ++ "]"