;; a dodgy amp distortion (bind-func static distort_c (lambda (gain) (let ((lim 0.5)) (lambda (in:SAMPLE) (clamp lim (* -1.0 lim) (* gain in))))))