mbakke

(define (string-cumulative source)
  (let ((prefix ""))
    (map
     (lambda (c)
       (set! prefix (string-append prefix c))
       prefix)
     source)))

(write (string-cumulative '("A" "B" "C")))