(define (number-interval f t) (cond ((< f t) (cons f (number-interval (+ f 1) t))) ((> f t ) (cons f (number-interval (- f 1) t))) (else ; (= f t) (list f))))