MACRO: running-sum ( -- ) gensym [ 0 swap set ] [ [ [ get + dup ] [ set ] bi ] curry ] bi ; ( scratchpad ) { 1 2 3 } [ running-sum ] each