IN: scratchpad USE: lists USE: kernel USE: math USE: random USE: test [ ] [ [ 100000 [ 0 10000 random-int , ] times ] make-list num-sort drop ] unit-test