type Data = (Int, Int, String)

bottom (b, _, _) = b
top    (_, t, _) = t
ide    (_, _, i) = i

contains :: Data -> Data -> Bool
x `contains` y = bottom x <= bottom y && top x >= top y

rangeSort1 :: [Data] -> [(Data, [Data])]
rangeSort1 r = map (\x -> (x, (filter (contains x) (filter (/=x) r))))  r

----

test :: [Data]
test = [ (11, 22, "A")
       , (22, 45, "B")
       , (22, 33, "C")
       , (25, 28, "D")
       , (47, 49, "E")
       ]