% Author: Markus Triska (triska@gmx.at)
% Date:   Sept. 17th 2005
prog([37,32,84,104,105,115,32,115,116,114,105,110,103,32,99,111,110,116,97,105,110,115,32,101,118,101,114,121,116,104,105,110,103,32,115,116,97,114,116,105,110,103,32,102,114,111,109,32,104,101,114,101,46,10,10,113,117,105,110,101,32,58,45,10,9,102,111,114,109,97,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,102,111,114,109,97,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,102,111,114,109,97,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,102,111,114,109,97,116,40,34,93,41,46,34,41,44,10,9,102,111,114,109,97,116,40,80,115,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,58,45,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,46,10,109,121,95,119,114,105,116,101,95,40,91,80,124,80,115,93,41,32,58,45,10,9,102,111,114,109,97,116,40,34,44,34,41,44,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]).% This string contains everything starting from here.

quine :-
	format("% Author: Markus Triska (triska@gmx.at)\n"),
	format("% Date:   Sept. 17th 2005\n"),
	format("prog(["),
	prog(Ps),
	my_write(Ps),
	format("])."),
	format(Ps),
	halt.

my_write([P|Ps]) :-
	write(P),
	my_write_(Ps).

my_write_([]).
my_write_([P|Ps]) :-
	format(","),
	write(P),
	my_write_(Ps).