code:

---

function CDSorter($a, $)
   do
      dim $u, $q, $t
      $ = 0.5 + $
      for each $t in split($a, ",")
         $u=1+$u
         if rnd(2) & $ > $t
            $ = $ - $t
            $q = $q + "," + $u
         endif
      next
      $CDSorter = substr($q,2)
   until 1=$
endfunction

---