scramblelist

scramblelist = [
    local tmp1, tmp2, tmp3
    loop i (listlen $arg1) [ tmp1 = (concat $tmp1 $i) ]
    loop i (listlen $arg1) [
        tmp2 = (concat $tmp2 (rndo (listdel $tmp1 $tmp2)))
    ]
    looplist i $tmp2 [ tmp3 = (concat $tmp3 (at $arg1 $i)) ]
    result $tmp3
]