Перемножение последовательностей

Если степенной ряд представляется в виде потока своих коэффициентов, как в упражнении 3.59 , то сумма последовательностей реализуется посредством add-streams . Завершите определение следующей процедуры для перемножения последовательностей:

(define (mul-series s1 s2)
  (cons-stream <??> (add-streams <??> <??>)))

Можете проверить свою процедуру, убедившись, что sin²x + cos²x = 1 с помощью последовательностей из упражнения 3.59

---