3-54.scm

#lang scheme

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

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

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