> sort [4,3,1,2] [1,2,3,4]
> let compare' x y = case compare x y of LT -> GT; EQ -> EQ; GT -> LT > sortBy compare' [5,3,6,1,2,4] [6,5,4,3,2,1]