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