6 (m . ,(make-pitch 0 2 -1 ))
7 (min . ,(make-pitch 0 2 -1 ))
8 (aug . ,(make-pitch 0 4 1 ))
9 ;; (dim . ,(make-pitch -100 4 -1 ))
10 (dim . ,(make-pitch -100 2 -1 ))
11 ;; urg, not actually a chord-modifier, but it works
12 ;; c7 -> <c bes>, c 7+ -> c b
13 (maj . ,(make-pitch 0 6 1 ))
14 ;; sus4 should delete 2 too...
15 (sus . ,(make-pitch 0 3 0 ))