2BSD/doc/pascal/mism.p

program mismatch(output)
begin
	writeln('***');
	{ The next line is the last line in the file }
	writeln