;; invert the values of lst quantizing to pc (define pc:invert (lambda (lst pc . args) (if (null? args) (pc:quantize-list (ivl:invert lst) pc) (pc:quantize-list (ivl:invert lst (car args)) pc))))