Plaster

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