\def\正{\begingroup\afterassignment\sei\count0=}
\def\sei{\loop
  \ifnum0<\count0
  \vrule height .89zh depth .15zh width 0pt
      \hbox{\yoko\hskip .09zw \vrule height .81zh depth -.74zh width .81zw \hskip .1zw
  \ifnum1<\count0\hskip -.51zw \vrule height .76zh depth .02zh width .07zw \hskip .44zw
  \ifnum2<\count0\hskip -.5zw \vrule height .45zh depth -.38zh width .36zw \hskip .14zw
  \ifnum3<\count0\hskip -.78zw \vrule height .52zh depth .02zh width .07zw \hskip .71zw
  \ifnum4<\count0\hskip -.94zw \vrule height .03zh depth .04zh width .88zw \hskip .06zw
  \fi\fi\fi\fi}\advance\count0 by -5
  \repeat
  \endgroup}

\正13 \正 9 \正 22 \正1