Data.List.maximumBy uses counter-intuitive ordering