ex-3.54.scm

(require "./stream-lib.scm")

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

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

; (display-stream (stream-take factorials 5))