; ; trick for shuffling a list (define (cl:shuffle l) (cl:sort l (lambda (x y) (equal? 0 (random 2)))))