(define IntervalComparison::Mi2 (cons "Mi2" "c des"))
(define IntervalComparison::Ma2 (cons "Ma2" "c d"))
(define IntervalComparison::Mi3 (cons "Mi3" "c ees"))
(define IntervalComparison::Ma3 (cons "Ma3" "c e"))


(IntervalComparison::IntervalComparison (list IntervalComparison::Mi2 IntervalComparison::Ma2 IntervalComparison::Mi3 IntervalComparison::Ma3 ))


