#!/usr/bin/csi -s
(import chicken.format)
(import utf8)

;; Does not work:
(printf "~a ~a ~a\n"  "1F525" #\x1f525 "FIRE")

;; Does work
(display "1F525")
(display #\space)
(display #\x1f525)
(display #\space)
(display "FIRE")
(newline)