(define (score-game spec prog1 prog2)
(let* ((core (make-core (spec-core-size spec)))
(queues (install-progs core (list prog1 prog2)))
(define (score-game spec prog1 prog2)
(let* ((core (make-core (spec-core-size spec)))
(queues (install-progs core (list prog1 prog2)))