proc
    randList(var/list/A)
        var/list/B = new ()
        if(A)
            while(A.len)
                var/I = pick(A)
                A -= I
                B += I
        return B


mob
    verb
        testRandList()
            var/list/startList = list("One","Two","Three","Four","Five")
            startList = randList(startList)
            for(var/I in startList)
                world << I