Процедура mul-streams

Определите процедуру mul-streams , аналогичную add-streams , которая порождает поэлементное произведение двух входных потоков. С помощью нее и потока integers закончите следующее определение потока, n -й элемент которого (начиная с 0 ) равен факториалу n + 1 :

(define factorials (cons-stream 1 (mul-streams <??> <??>)))

---