(define (map proc stream)
  (if (empty-stream? stream)
      the-empty-stream
      (cons-stream (proc (head stream)) (map proc (tail stream)))))
(define (enumerate-int low high)
  (if (> low high)
      the-empty-stream
      (cons-stream low (enumerate-int (1+ low) high))))
(define (show x)
  (display x)
  (newline)
  x)