#lang sicp (define (lower-bound i) (car i)) (define (upper-bound i) (cdr i))