\def\abjad#1{\@abjad{\@nameuse{c@#1}}}
\def\adadi#1{\@adadi{\@nameuse{c@#1}}}
\def\harfi#1{\@harfi{\@nameuse{c@#1}}}

\def\@abjad#1{\beginR\ifcase#1\or ���\or �\or �\or �\else\@iabjad{#1}\fi\endR}
\def\@iabjad#1{\ifcase#1\or \or \or \or \or �\or �\or �\or �\or
   �\or �\or �\or �\or �\or �\or �\or �\or �\or �\or
   �\or �\or �\or �\or �\or �\or �\or �\or �\or �\else\@ctrerr\fi}

\def\@adadi#1{\beginR\ifcase#1\or ��\or ��\or ��\or ����\else
   \@iadadi{#1}\fi\endR}
\def\@iadadi#1{\ifcase#1\or \or \or \or \or ���\or ��\or �Դ\or �ȴ\or
   ��\or ��\or �����\or ������\or ��â�\or ������\or ���â�\or ���â�\or
   ����\or ����\or �����\or ��ƴ\else\@ctrerr\fi}

\def\@harfi#1{\beginR\ifcase#1\or ���\or �\or �\or �\else\@iharfi{#1}\fi\endR}
\def\@iharfi#1{\ifcase#1\or \or \or \or \or �\or �\or �\or �\or
   �\or �\or �\or �\or �\or �\or �\or �\or
   �\or �\or �\or �\or �\or �\or �\or �\or �\or �\or �\or �\or
   �\or �\or �\else\@ctrerr\fi}
