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 …