{ Quine in Kuin. @tatt61880 {Last Modified: 2018/12/03 22:29:07.}}
func main()
	func quine(str: []char)
		var s: []char :: ""
		for i(0, ^str - 1)
			var c: char :: str[i]
			switch(c)
			case '\n'
				do s :~ "\\n\" ~\n\t|\""
			case '\t'
				do s :~ "\\t"
			case '\\', '"'
				do s :~ ['\\', c]
			default
				do s :~ [c]
			end switch
		end for
		do cui@print("\{str ~ s}\"\n\tdo quine(str)\nend func\n")
	end func
	const str: []char :: "{ Quine in Kuin. @tatt61880 {Last Modified: 2018/12/03 22:29:07.}}\n" ~
	|"func main()\n" ~
	|"\tfunc quine(str: []char)\n" ~
	|"\t\tvar s: []char :: \"\"\n" ~
	|"\t\tfor i(0, ^str - 1)\n" ~
	|"\t\t\tvar c: char :: str[i]\n" ~
	|"\t\t\tswitch(c)\n" ~
	|"\t\t\tcase '\\n'\n" ~
	|"\t\t\t\tdo s :~ \"\\\\n\\\" ~\\n\\t|\\\"\"\n" ~
	|"\t\t\tcase '\\t'\n" ~
	|"\t\t\t\tdo s :~ \"\\\\t\"\n" ~
	|"\t\t\tcase '\\\\', '\"'\n" ~
	|"\t\t\t\tdo s :~ ['\\\\', c]\n" ~
	|"\t\t\tdefault\n" ~
	|"\t\t\t\tdo s :~ [c]\n" ~
	|"\t\t\tend switch\n" ~
	|"\t\tend for\n" ~
	|"\t\tdo cui@print(\"\\{str ~ s}\\\"\\n\\tdo quine(str)\\nend func\\n\")\n" ~
	|"\tend func\n" ~
	|"\tconst str: []char :: \""
	do quine(str)
end func

func main()
func q(s:[]char)
for i(0,195)
if(s[i]='\n')
do s:~"\\n"
elif(s[i]='\\'|s[i]='"')
do s:~"\\\{s[i]}"
else
do s:~"\{s[i]}"
end if
end for
do cui@print(s~"\")\nend func\n")
end func
do q("func main()\nfunc q(s:[]char)\nfor i(0,195)\nif(s[i]='\\n')\ndo s:~\"\\\\n\"\nelif(s[i]='\\\\'|s[i]='\"')\ndo s:~\"\\\\\\{s[i]}\"\nelse\ndo s:~\"\\{s[i]}\"\nend if\nend for\ndo cui@print(s~\"\\\")\\nend func\\n\")\nend func\ndo q(\"")
end func