Процедура partial-sums

Определите процедуру partial-sums , которая в качестве аргумента берет поток S , а возвращает поток, элементы которого равны S₀, S₀ + S₁, S₀ + S₁ + S₂, ... . Например, (partial-sums integers) должно давать поток 1, 3, 6, 10, 15 ... .

---