proc sort &d[] .
   for i = 1 to len d[] - 1 : for j = i + 1 to len d[]
      if d[j] < d[i] : swap d[j] d[i]
   .
.
a[] = [ 2 4 3 1 2 ]
sort a[]
print a[]