(define mod/
  (lambda (f)
    (lambda (x y) (remainder (f x y) MAX-VAL))))

(define mod/+ (mod/ +))
(define mod/- (mod/ -))
(define mod/* (mod/ *))
(define mod/div (mod/ quotient))
(define mod/% (mod/ remainder))