(define (integrate-series s)
  (define (coefficient stream n)
    (cons-stream (/ (stream-car stream) n)
                 (coefficient (stream-cdr stream) (+ n 1))))
  (coefficient s 1))

(define exp-series
  (cons-stream 1 (integrate-series exp-series)))

(define cosine-series
  (cons-stream 1 (scale-stream (integrate-series sine-series) -1)))

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