MODULE GenericProg; FROM IntId IMPORT Id; VAR ExitCode : INTEGER; BEGIN ExitCode := Id(42) END GenericProg.