;;; Generated from an LP program; edit the fragment sources.
;;; Execution order follows the declared program.

;;; lp-accumulator-state — lp-0001.plant:28
(define total 0)

;;; lp-accumulate — lp-0001.plant:22
(define (accumulate delta)
       (set! total (+ total delta))
       total)