# XOTcl version of 99 Bottles of beer (Bottles.xotcl)
# http://www.xotcl.org
# Philipp Winterberg, http://www.winterbergs.de

for {set b 99} {$b > 0} {} {
  puts "$b bottle(s) of beer on the wall,"
  puts "$b bottle(s) of beer."
  puts "take one down, pass it around,"
  incr b -1
  puts "$b bottle(s) of beer on the wall.\n"
}