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