4 (define (integrate-series stream)
5 (define (integrate-iter S I)
6 (stream-map (lambda (s i)
10 (integrate-iter stream
11 (integers-starting-from 1)))
15 (cons-stream 0 (integrate-series cosine-series)))
18 (cons-stream 1 (scale-stream (integrate-series sine-series) -1)))