Modified IntervalTree.hs