3.59

;3.59
;a
(define (integrate-series a)
  (mul-streams (stream-map (lambda (x)
                             (/ 1 x))
                           integers)
               a))

;b
(define cosine-series
  (cons-stream 1 (stream-map - 
                             (integrate-series sine-series))))

(define sine-series
  (cons-stream 0 (integrate-series consine-series)))