to swap :i :j :a
localmake "t item :i :a
setitem :i :a item :j :a
setitem :j :a :t
end
to shuffle :a
for [i [count :a] 2] [swap 1 + random :i :i :a]
make "a {1 2 3 4 5 6 7 8 9 10}
shuffle :a
show :a