Quine = Function[{},
Module[{code, quote},
code =
"Quine=Function[{},\nModule[{code,quote},\ncode=\"[CODE]\";\n\
quote=Function[{string},\n\
With[{escaped=StringReplace[string,{\"\\\\\"\[Rule]\"\\\\\\\\\",\"\\n\
\"\[Rule]\"\\\\n\",\"\\\"\"\[Rule]\"\\\\\\\"\"}]},\n\
StringReplace[string,{\"[CO\"<>\"DE]\"\[Rule]escaped}]]];\n\
quote[code]]];";
quote = Function[{string},
With[{escaped =
StringReplace[
string, {"\\" -> "\\\\", "\n" -> "\\n", "\"" -> "\\\""}]},