;; a 'leaky' integrator (bind-func integrator_c (let ((old 0.0) (leak 0.99)) (lambda (x) (set! old (+ (* leak old) x)) old)))