[daveake]

while number_of_beers > 0 do begin

writeln(inttostr(number_of_beers) + " bottles of beer on the wall");
dec(number_of_beers);
writeln("Hic!!");

end;

writeln("Bye bye silly pointless thread!");

// Dave