1 ]=> (load "streams.txt")

;Loading "streams.txt"... done
;Value: stream-enumerate-interval

1 ]=> (define (show x) (display-line x) x)

;Value: show

1 ]=> (define x (stream-map show (stream-enumerate-interval 0 10)))

0
;Value: x

1 ]=> (stream-ref x 5)

1
2
3
4
5
;Value: 5

1 ]=> (stream-ref x 7)

6
7
;Value: 7

; Note: the version of delay this stream implementation is using caches its
; evaluated expression values

1 ]=> (define a (delay (display "hello")))

;Value: a

1 ]=> (force a)
hello
;Unspecified return value

1 ]=> (force a)

;Unspecified return value