% Prolog quine, written June 1st 2022 by Markus Triska (triska@metalevel.at)
% Usage: $ scryer-prolog -g quine,halt quine.pl

prog("% This string contains everything starting from here.\n\n\nquine :-\n        format(\"% Prolog quine, written June 1st 2022 by Markus Triska (triska@metalevel.at)\\n\"),\n        format(\"% Usage: $ scryer-prolog -g quine,halt quine.pl\\n\\n\"),\n        prog(Ps),\n        writeq(prog(Ps)),\n        format([.|Ps]).\n\nformat([]).\nformat([C|Cs]) :-\n        write(C),\n        format(Cs).\n").% This string contains everything starting from here.


quine :-
        format("% Prolog quine, written June 1st 2022 by Markus Triska (triska@metalevel.at)\n"),
        format("% Usage: $ scryer-prolog -g quine,halt quine.pl\n\n"),
        prog(Ps),
        writeq(prog(Ps)),
        format([.|Ps]).

format([]).
format([C|Cs]) :-
        write(C),
        format(Cs).