(import (scheme eval))
(eval '(display (char-ci=? #\a #\A))
      (environment '(scheme char)
                   '(scheme write)))