change List.sortWith to List.sortBy

change List.sortWith (fun x y -> -(compare x y))
to List.sortBy not