: (char "a")
-> 97
: (char "字")
-> 23383
: (char 23383)
-> "字"
: (chop "文字")
-> ("文" "字")
: (mapcar char @)
-> (25991 23383)

documentclass{article}
usepackage[T1]{fontenc}
usepackage{CJKutf8}
usepackage[english]{babel}

newenvironment{Japanese}{%
  CJKfamily{min}%
  CJKtilde
  CJKnospace}{}

begin{document}

begin{CJK}{UTF8}{}
begin{Japanese}
noindent: (char ``a'') \
-> 97 \
: (char ``字'') \
-> 23383 \
: (char 23383) \
-> ``字'' \
: (chop ``文字'') \
-> (``文'' ``字'') \
: (mapcar char @) \

end{document}