sortBy (compare `on` fst)