
(define IntervalComparison::D5 (cons "D5" "c ges"))
(define IntervalComparison::P5 (cons "P5" "c g"))
(define IntervalComparison::Mi6 (cons "Mi6" "c aes"))
(define IntervalComparison::Ma6 (cons "Ma6" "c a"))


(IntervalComparison::IntervalComparison (list IntervalComparison::D5 IntervalComparison::P5 IntervalComparison::Mi6 IntervalComparison::Ma6 ))

