#| BEGIN (Write your solution here) |#
(define (integrate-series series)
  (div-streams series integers))
(define cosine-series
  (cons-stream 1
               (integrate-series (scale-stream sine-series -1))))

(define sine-series
  (cons-stream 0
               (integrate-series cosine-series)))
(define (mul-series s1 s2)
  (cons-stream (* (stream-car s1)
                  (stream-car s2))
               (add-streams  (scale-stream (stream-cdr s1)
                                           (stream-car s2))
                             (mul-series s1
                                         (stream-cdr s2)))))