*p={if#0>0print(stu#0)else print"No more";print"
bottle";if#0<>1print"s";
print" of beer"};*i=0;for i=0to 98{do p(99-i);print" on the
wall,",EoL;do
p(99-i);print".",EoL;print"Take one down, pass it around,",EoL;do
p(98-i);print".",EoL,EoL;}

FIN