(define (wrap-range x lower upper)
  (cond
    ((> x upper) (wrap-range (+ lower (- x upper)) lower upper))
    ((< x lower) (wrap-range (- upper (- lower x)) lower upper))
    (else x)))