(define shuffle (lambda (deck size) (let ((half (quotient (+ size 1) 2))) (interleave (first-elements-of half deck) (list-tail deck half)))))