// WebL version of 99 Bottles of beer (Bottles.webl)
// WebL = Compaq's Web Language, http://research.compaq.com/SRC/WebL
// Philipp Winterberg, http://www.winterbergs.de

var b = 99;

while b > 0 do 
  PrintLn(b, " bottle(s) of beer on the wall,\n",	
          b, " bottle(s) of beer.\n", "Take one down, pass it around,\n",
          (b - 1), " bottle(s) of beer on the wall.\n");
  b = b - 1
end