fstSort :: Ord a => [(a, b)] -> [(a, b)]
  fstSort = sortBy (flip compare `on` fst)
fstSort :: Ord a => [(a, b)] -> [(a, b)]
fstSort = sortBy (flip compare `on` fst)
fstSort = sortBy (flip compare `on` fst)