(use srfi-41 streams-math lazy-seq lazy-prime-numbers)

(newline)
(print* "first run")
(newline)

(print* "srfi-41: ")
(time (print (stream-car (stream-drop 1000 prime-numbers-stream))))

(newline)
(print* "lazy-seq: ")
(time (print (lazy-head (lazy-drop 1000 lazy-prime-numbers))))

(newline)
(print* "second run")
(newline)

(print* "srfi-41: ")
(time (print (stream-car (stream-drop 1000 prime-numbers-stream))))

(newline)
(print* "lazy-seq: ")
(time (print (lazy-head (lazy-drop 1000 lazy-prime-numbers))))