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