(load "streams.txt") (define (mul-streams s1 s2) (stream-map * s1 s2)) ; ; Alternative definition ; (define (mul-streams s1 s2) ; (if (stream-null? s1) ; the-empty-stream ; (cons-stream ; (* (stream-car s1) (stream-car s2)) ; (mul-streams (stream-cdr s1) (stream-cdr s2))))) (define factorials (cons-stream 1 (mul-streams factorials integers)))