streams problem

;; -*- scheme -*-

(define (stream-enumerate-interval low high)
  (if (> low high)
      the-empty-stream
      (cons-stream
       low
       (stream-enumerate-interval (+ low 1) high))))

(define (display-line x)
  (newline)
  (display x))

(define (show x)
  (display-line x)
  x)

(define (force delayed-object)
  (delayed-object))

(define (delay exp) (lambda () exp))


;; TEST:

(define x (stream-map show (stream-enumerate-interval 0 10)))

(stream-ref x 5)

(stream-ref x 7)

(stream-car (stream-cdr x))