;; a dodgy bitcrusher (bind-func static crusher_c (lambda () (let ((amp 1.0)) (lambda (in bits:SAMPLE) (* amp (/ (floor (* in (pow 2. bits))) (pow 2. bits)))))))