2.11BSD/doc/2.10/pascal/mism.p

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