\font\sc=cmr8
\tenrm

\newcount\sectc \newcount\chapc
\newcount\linec \newcount\Clinec
\chapc=0 \sectc=1
\def\strutdepth{\dp\strutbox}
\def\noheightchar#1{\vtop to \strutdepth
	{\baselineskip\strutdepth
	\vss\llap{#1}\null}}
\def\noheightrightchar#1{\vtop to \strutdepth
	{\baselineskip\strutdepth\vss\rlap{#1}\null}}

\def\chap{\sectc=1 \advance\chapc by 1
	\strut\vadjust{\kern-\strutdepth\noheightchar{\hskip\leftskip \bf\number\chapc\ }}}

\def\sec{\advance\sectc by 1
	\strut\vadjust{\kern-\strutdepth\noheightchar{\hskip\leftskip \sc\number\sectc\ }}}

\def\linesbyfive{\linec=-1 \Clinec=0
	\everypar{\hangindent 2\parindent
		\advance\linec by 1 \advance \Clinec by 1
		\ifnum\Clinec=5 \Clinec=0
		\strut\vadjust{\kern-\strutdepth\hskip \hsize plus \rightskip
			\noheightrightchar{\sc\number\linec\ }}\fi}
	}
\def\poetrysize{\hsize=3.6in \rightskip=-2em}
