Added type-intervals.scm