Local NumberVar bottles := 99;
Local StringVar song;

while bottles > 1 do
(
    song := song & ToText(bottles, 0) & " bottles of bear on the wall";
    song := song & ChrW(13);
    song := song & ToText(bottles, 0) & " bottles of beer..."  & ChrW(13);