(define midpoint
  (lambda (interval)
    (/ (+ (upper-endpoint interval) (lower-endpoint interval)) 2)))

(define right-half
  (lambda (interval)
    (make-interval (midpoint interval) (upper-endpoint interval))))