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