var n as Int
var t as Int		//Time delay between line prints (1000 = 1 second)
var vBottle as String

t=20

For n = 99 downto 1
    If n=1 Then vBottle = " bottle" else vBottle = " bottles" 
    WriteLn(n + vBottle  + " of beer on the wall,")
    Loiter(t)
    WriteLn(n + vBottle  + " of beer,")
    Loiter(t)
    WriteLn("Take one down and pass it around,")
    Loiter(t)
    WriteLn(n + vBottle  + " of beer on the wall." + @NewLine() )
    Loiter(t)
Next

WriteLn("......hic.........hic, hic..........hic")
WriteLn("Set 'em up again, Sam")