sicp-ex-3.54


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

leafac

I believe the above is wrong, because `integers' start at 1 and we want the factorial of `n + 1'. Also, it's missing the `mul-streams'. Here's my solution:

 (define (mul-streams s1 s2) 
   (stream-map * s1 s2)) 
  
 (define factorials (cons-stream 1 (mul-streams integers factorials)))