Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/self-print/self.stdout
main = putStrLn (quine q) quine s = s ++ show s q = "main = putStrLn (quine q)\nquine s = s ++ show s\nq = "