;; chicken-csi -p '(include "chicken.scm") color'

(import (chicken read-syntax)
        (chicken string)
        (chicken io))

 (set-read-syntax! #\%
   (lambda (port)
     (apply vector
       (map (cut string->number <> 16)
	    (string-chop (read-string 6 port) 2)))))

(define color %ff0000)