MODULE ClashProg; (* Same-named globals AND same-named procedures in two modules. *) IMPORT ClashA, ClashB; VAR ExitCode : INTEGER; BEGIN ExitCode := ClashA.count + ClashB.count + ClashA.Get + ClashB.Get END ClashProg.