(define (mul-streams s1 s2) (stream-map * s1 s2))(define factorials (cons-stream 1 (mul-streams factorials (integers-starting-from 2))))
> (= (* 1 2 3 4 5 6 7 8 9 10 11) (stream-ref factorials 10))#t
#t