(load "streams.txt")

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