MODULE MBadExp; MODULE M EXPORT cnt, cnt; VAR cnt : INTEGER; END M; VAR ExitCode : INTEGER; BEGIN ExitCode := 0 END MBadExp.