qualified interval.hs