tailedRange (DetailedRange l@(_:_)) (DetailedRange l')
  = DetailedRange $ l ++ [x | x <- l', x >= last l ]



-
addDetailedRange (DetailedRange l@(_:_)) (DetailedRange l')
  = DetailedRange $ l ++ [x | x <- l', x >= last l ]
addDetailedRange (DetailedRange l@(_:_)) (DetailedRange l')
  = DetailedRange $ l ++ [x | x <- l', x >= last l ]