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