(setlocale LC_ALL "")

(define (hmm symbol)
  (define (show x)
    (display x) (display "\t") (write x) (newline))
  (newline)
  (show symbol)
  (let ((string (symbol->string symbol)))
    (show string)
    (show (object->string string))))

(display "LANG: ") (write (getenv "LANG")) (newline)
(hmm 'foo)
(hmm '#{f\"o b\\r}#)
(hmm '⌬)                                ; U+232C (utf-8: E2 8C AC)
(hmm '䕫)                               ; U+2F9B2 (utf-8: F0 AF A6 B2)
(hmm '蜨)                               ; U+2F9BC (utf-8: F0 AF A6 BC)