연습문제 3.55

(define (partial-sums s)
  (cons-stream (stream-car s)
                        (add-streams (stream-cdr s) (partial-sums s))))