(define (rnd) (random 4))
(build-list 10 (lambda (x) (cond
                        [(= (rnd) 0) 'red]
                        [(= (rnd) 1) 'green]
                        [(= (rnd) 2) 'blue]
                        [else 'yellow]))