(sort (loop for n in '(5 3 1 2 4) collect (* n n)) #'<)