RosettaCodeData/Task/Sort-an-integer-array/Pop11/sort-an-integer-array-2.pop11

lvars ar = {2 4 3 1 2};
consvector(destlist(sort(conslist(destvector(ar))))) -> ar;
;;; print the sorted vector:
ar =>
** {1 2 2 3 4}