(fun x -> Printf.printf "%s %S" x x) "(fun x -> Printf.printf \"%s %S\" x x)"

Directly imported from the land of Haskell. If you want more quines, well, you can always go there.