;; expand/contract lst by factor quantizing to pc (define pc:expand/contract (lambda (lst factor pc) (pc:quantize-list (ivl:expand/contract lst factor) pc)))