IMPLEMENTATION MODULE Cmp; PROCEDURE IntCompare(a, b : INTEGER) : INTEGER; BEGIN RETURN a - b END IntCompare; END Cmp.