(bind-func dsp4:DSP
(let ((load 0.0)
(total 0.0)
(tmp 0.0)
(out 0.0)
(second SR))
(lambda (in time chan dat)
(if (< chan 2)
(begin
(set! tmp (clock_clock))
(set! out (kit in time chan dat))
(set! total (+ total (- (clock_clock) tmp)))
(if (and (= (% time second) 0) (= chan 0))
(begin
(set! load total)
(set! total 0.0)))
out)
0.0))))