\def\q#1.{{\bf #1.}}
\def\dotline{\smallskip\hbox to \hsize{\dotfill}\smallskip}

\def\mod#1{\mkern6mu ({\rm mod}\,\,#1)}

%%
%% Три точки для обозначения делимости
%%
\catcode`\@=11
%\def\kratno{\mathrel{\smash{\lower.5ex\hbox{$\,\vdots\,$}}}}
\def\kratno{\mathrel{\smash{\lower.5ex\vbox{\baselineskip=1ex
\lineskiplimit=0pt \hbox{.} \hbox{.} \hbox{.}}}}}
% Это прямые три точки для обозначения делимости
\def\nekratno{\mathrel{\mathpalette\c@ncel\kratno}}
\def\c@ncel#1#2{\m@th\ooalign{$\hfil#1\mkern-2mu/\hfil$\crcr$#1#2$}}
% Это перечеркнутые три точки для обозначения неделимости
\def\divis{\smash{\lower.1ex\hbox{\,\hbox{.}\kern-.22em\lower-.6ex\hbox{.}
\kern-.52em\lower-1.2ex\hbox{.}\,}} }
% А это наклонные...

%%
%% Макрокоманда \lines #1  для рисования клетчатых фигурок
%%     Параметр #1 - ширина фигуры в клеточках
%%
%% Заклинание вроде \cellsize=1.9ex задает размер клеточек
%%
\newdimen\cellsize
\newdimen\lwidth
\cellsize=1.5ex
\bgroup

{\catcode`\|=\active \catcode`\_=\active \catcode`\ =\active% 
\catcode`\&=\active\catcode`\^^M=\active%
\gdef\linedefs{\let|\vertline\let_\horline\let \nolines\let&\phantomvertline
\let^^M\nextrow}}

\gdef\lines#1{\count@\z@\dimen0=\cellsize\advance\dimen0 .4pt
  \def\vertline{\count@\@ne\leavevmode\rlap{\vrule height \cellsize}}
  \def\phantomvertline{\count@\@ne\leavevmode\rlap{\phantom{\vrule height \cellsize}}}
  \def\horline{\count@\z@\leavevmode
    \hbox to\cellsize{\vrule height.4pt width\dimen0\hss}}
  \def\nolines{\relax\ifodd\count@\leavevmode\kern\cellsize\count@\z@
    \else\count@\@ne\fi\relax}
  \def\nextrow{\par\count@\z@}
  \lwidth\cellsize
  \multiply\lwidth by #1
  \catcode`\|=\active \catcode`\_=\active \catcode`\&=\active
  \catcode`\^^M=\active \catcode`\ =\active
  \hsize\lwidth\advance\hsize.4pt\parindent\z@\offinterlineskip\linedefs}

\egroup

% Пример применения \lines
%
%\leavevmode \vbox{\lines6
% _   _   _
%| | | | | |_
%| |_| |_|_ _|
%|_ _|_|_ _  |
% _ _ _ _ _| |
%|_ _ _|_ _ _|
%
%}