MODULE GWrapProg; FROM WrapB IMPORT Hi; VAR ExitCode : INTEGER; BEGIN ExitCode := Hi() + 41 END GWrapProg.