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