escapeQuotes = foldr (\c s -> if c == '"' then '\\':c:s else c:s) ""
escapeQuotes = foldr (\c s -> if c == '"' then '\\':c:s else c:s) ""
escapeQuotes = foldr (\c s -> if c == '"' then '\\':c:s else c:s) ""