Exercise 3.54

Read Exercise 3.54 ~ Solution

(define (mul-streams s1 s2)
  (stream-map * s1 s2))

(define factorials 
  (cons-stream 1 
               (mul-streams factorials integers)))