IMPLEMENTATION MODULE m1; IMPORT FIO; IMPORT m2; CONST err = FIO.ErrorOutput; BEGIN FIO.WrStr( err, 'm1' ); FIO.WrLn( err ); END m1.