import "Prelude"

main :: [Integer]
main = [x | x <- [2,4,3,5,4,6], then sortBy by x]
--
[2, 3, 4, 4, 5, 6]