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
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