$ ISETL version of 99 Bottles of beer (Bottles.stl)
$ Philipp Winterberg, http://www.philipp-winterberg.de

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