(define IntervalComparison::Mi3 (cons "Mi3" "c ees"))
(define IntervalComparison::Ma3 (cons "Ma3" "c e"))
(define IntervalComparison::P4 (cons "P4" "c f"))
(define IntervalComparison::A4 (cons "A4" "c fis"))


(IntervalComparison::IntervalComparison (list IntervalComparison::Mi3 IntervalComparison::Ma3 IntervalComparison::P4 IntervalComparison::A4))

