for i = 99L, 0, -1 do begin

print, i, format="(I0, 1X, 'bottles of beer on the wall,')"
print, i, format="(I0, 1X, 'bottles of beer.')"
print, 'Take one down, pass it around,'
print, i, format="(I0, 1X, 'bottles of beer on the wall.', /)"

endfor