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