#!r6rs

(import (rnrs)
        (for (static-map) expand))

(define-syntax color
  (static-map (red #\R) (green #\G) (yellow #\Y)))

(display "Available colors: ")
(display (color <names>))
(display (list (color red) (color green) (color yellow)))
(newline)