rem 'Ethos Basic version of 99 Bottles of beer (Bottles.eto)'
rem 'See http://www.ethos.tv/show_downloads.asp'
rem 'Philipp Winterberg, www.winterbergs.de'
     
for b = 99 to 1 step -1
 output b;" bottle(s) of beer on the wall,"
 output b;" bottle(s) of beer."
 output "Take one down, pass it around,"
 output b-1;" bottle(s) of beer on the wall." : output " "
next