Partial-sums procedure

Define a procedure partial-sums that takes as argument a stream S and returns the stream whose elements are S₀, S₀ + S₁, S₀ + S₁ + S₂, ... . For example, (partial-sums integers) should be the stream 1, 3, 6, 10, 15 ... .

---