Quine

A program that outputs its own source code.

quine

#!/usr/bin/pinafore
(fn t => with Text in outputLn.Env $ "#!/usr/bin/pinafore\n(" <> t <> ")\n" <> show t)
"fn t => with Text in outputLn.Env $ \"#!/usr/bin/pinafore\\n(\" <> t <> \")\\n\" <> show t"