let escape_quotes s =
  replace_in_string ~pat: "\"" ~subs: "\\\"" ~s