MODULE BBadDup; MODULE M EXPORT cnt; VAR cnt : INTEGER; BEGIN cnt := 1 END M; MODULE M EXPORT k; VAR k : INTEGER; BEGIN k := 2 END M; VAR ExitCode : INTEGER; BEGIN ExitCode := 0 END BBadDup.