Played a little more with the functional aspects of Scheme / Racket wit the Shut the Box program:
#lang racket 
(define tiles `(1 2 3 4 5 6 7 8 9))
(define (dice)
    (+ 1 (random 6)))
(define (roll) 
    (list (dice) (dice)))
(define dice-roll (roll))
(define sum-roll (apply + dice-roll))
(define tilelist '(4 …