+\def\euc{\ltj@code@conv{euc}}
+\def\kuten{\ltj@code@conv{kuten}}
+\def\jis{\ltj@code@conv{jis}}
+\def\sjis{\ltj@code@conv{sjis}}
+\def\ucs{\ltj@code@conv{ucs}}
+
+\def\ltj@code@conv#1{%
+ \directlua{luatexja._cc_next = luatexja.compat.from_#1 }%
+ \ltj@code@convA
+}
+\def\ltj@code@convA{%
+ \expandafter\expandafter\expandafter
+ \ltj@code@convB\ltj@grab@num
+}
+\def\ltj@code@convB#1{%
+ \directlua{luatexja._cc_next(\ltj@safe@num{#1}) }%
+}
+
+\def\kansuji{%
+\tracingall
+ \expandafter\expandafter\expandafter
+ \ltj@kansujiA\ltj@grab@num
+}
+\def\ltj@kansujiA#1{%
+ \directlua{luatexja.compat.to_kansuji(\ltj@safe@num{#1}) }%
+}