Plaster

common-lisp
(defun running-sum (list) (loop for x in list for accum = x then (+ x accum) collect accum))