\def\bottles{\x bottle\s of beer}
\def\bottlesw{\bottles~on the wall}
\def\take{Take one down and pass it around\advance\bottle-1,\par}
\newcount\bottle
\def\x{\ifnum\bottle=0No\else\number\bottle\fi~}
\def\s{\ifnum\bottle>1s\fi~}
\bottle=99
\loop\ifnum\bottle>0
\bottlesw,~\bottles,\endgraf\take\bottlesw.\endgraf\medskip
\repeat
\bye