listshuffle

listshuffle = [
  _tmplist = $arg1
  bloop i (listlen $arg1) [
    if (> $i 1) [
      _tmpindex = (- $i 1)
      _tmpitem = (at $_tmplist $_tmpindex)
      _rndindex = (rnd $i)
      _rnditem = (at $_tmplist $_rndindex)
      _tmplist = (listreplace $_tmplist $_rndindex $_tmpitem)
      _tmplist = (listreplace $_tmplist $_tmpindex $_rnditem)
    ]
  ]
  result $_tmplist
]