; rt – running tailsum
; xx – decrementer
;
to TAILSUM :xx :rt
if :xx = 0 [print :rt stop]
make “rt :rt + :xx
TAILSUM :xx -1 :rt
END

RESET
CLEARTEXT
TAILSUM 15 0