;; quantize the values of lst to pc (define pc:quantize-list (lambda (lst pc) (map (lambda (i) (pc:quantize i pc)) lst)))