(define qnt (lambda (pitch . args) (pc:quantize pitch (if (null? args) *scale* (map (lambda (pitch) (modulo pitch 12)) (car args))))))