(define (a)
  `((bg ,white)))
(define (b)
  `((bg ,black)))
(define (d)
  (let ((white 'z)
        (black 'y))
    `(foo
      (bar ,bg))))