foo = last (sortBy (compare `on` fst) xs)