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