(define print-load (lambda (beat dur) (ascii-print-color 0 2 8) (console_print (sys:audio-load) (dspsum.left) (dspsum.right)) (callback (*metro* (+ beat (* .5 dur))) 'print-load (+ beat dur) dur)))