% http://www.metalevel.at/various/quine.pl
% Author: Markus Triska (triska@gmx.at)
% Date:   Sept. 17th 2005
index(-)
prog([113,117,105,110,101,32,61,62,10,9,112,114,105,110,116,40,34,37,32,65,117,116,104,111,114,58,32,77,97,114,107,117,115,32,84,114,105,115,107,97,32,40,116,114,105,115,107,97,64,103,109,120,46,97,116,41,92,110,34,41,44,10,9,112,114,105,110,116,40,34,37,32,68,97,116,101,58,32,32,32,83,101,112,116,46,32,49,55,116,104,32,50,48,48,53,92,110,34,41,44,10,9,112,114,105,110,116,40,34,112,114,111,103,40,91,34,41,44,10,9,112,114,111,103,40,80,115,41,44,10,9,109,121,95,119,114,105,116,101,40,80,115,41,44,10,9,112,114,105,110,116,40,34,93,41,46,34,41,44,10,9,112,114,105,110,116,40,91,99,104,114,40,80,41,32,58,32,80,32,105,110,32,80,115,93,41,44,10,9,104,97,108,116,46,10,10,109,121,95,119,114,105,116,101,40,91,80,124,80,115,93,41,32,61,62,10,9,119,114,105,116,101,40,80,41,44,10,9,109,121,95,119,114,105,116,101,95,40,80,115,41,46,10,10,109,121,95,119,114,105,116,101,95,40,91,93,41,32,61,62,32,116,114,117,101,46,10,109,121,95,119,114,105,116,101,95,40,91,80,124,80,115,93,41,32,61,62,10,9,112,114,105,110,116,40,34,44,34,41,44,10,9,112,114,105,110,116,40,80,41,44,10,9,109,121,95,119,114,105,116,101,95,40,80,115,41,46,10,10,10]).

main => go.

go => quine.

quine =>
	print("% Author: Markus Triska (triska@gmx.at)\n"),
	print("% Date:   Sept. 17th 2005\n"),
	print("prog(["),
	prog(Ps),
	my_write(Ps),
	print("])."),
	print([chr(P) : P in Ps]),
	halt.

my_write([P|Ps]) =>
	write(P),
	my_write_(Ps).

my_write_([]) => true.
my_write_([P|Ps]) =>
	print(","),
	print(P),
	my_write_(Ps).