(define (within? x lower upper) (<= lower x upper))