#!/usr/bin/perl

$exstat = 0;

while (<>) {
	if (/^MES\#/) {
		if ($mes) {
			print STDERR "Error found at line $.\n";
			print STDERR "$_\n";
			$exstat = 1;
		}
		$mes = 1;
	}
	if (/\\\\/) {
		$mes = 0;
	}
}

exit $exstat;