MODULE TEST; FROM MODF IMPORT MODF; VAR A, B, C, D :REAL; BEGIN MODF( A, B, C, D); END TEST.