Data.Geometry.Interval
data Interval a r
unInterval
inInterval
class HasStart t
class HasEnd t
shiftLeft'