(define IntervalComparison::P4 (cons "P4" "c f"))
(define IntervalComparison::A4 (cons "A4" "c fis"))
(define IntervalComparison::P5 (cons "P5" "c g"))


(IntervalComparison::IntervalComparison (list IntervalComparison::P4 IntervalComparison::A4 IntervalComparison::P5))

