let _ = (fun s -> Printf.printf "%s\n\"%s\";;\n\n" s (String.escaped s))
"let _ = (fun s -> Printf.printf \"%s\\n\\\"%s\\\";;\\n\\n\" s (String.escaped s))";;

let s = String.escaped "let s = String.escaped \"%s\" in\nPrintf.printf \"%s\" s s;;\n\n" in
Printf.printf "let s = String.escaped \"%s\" in\nPrintf.printf \"%s\" s s;;\n\n" s s;;

let s =
"let s =\n\"#\" in\nPrintf.printf \"%s\" (Str.replace_first (Str.regexp \"#\") (String.escaped s) s);;\n" in
Printf.printf "%s" (Str.replace_first (Str.regexp "#") (String.escaped s) s);;