(define rem
  (lambda (number divisor)
    (if (< number divisor)
        number
        (rem (- number divisor) divisor))))