(cond-expand (chicken (use utf8)) (else #f)) (let ((chars (string->list "出"))) (display "") (display chars) (display "
") (display "(") (display (car chars)) (display ")") (display ""))