I am endlessly impressed with the rapid progress of Parrot, and raise my glass to the contributers.
Song and drink for everyone. In pasm, of course ;-)
# Mmmm, beer good
set I1, 99 # bottles of beer
set I2, 1 # single bottle
set S1, " of beer on the wall,\n"
set S2, " of beer,\n"
set S3, "Take one down, pass it around,\n"
set S4, " of beer on the wall\n\n"
set S5, " bottle"
set S6, " bottles"
set S7, "No more bottles of beer on the wall\n\n"
set S8, "*Buuurrp*\n"
branch n_bottles # start drinkin'
n_bottles: print I1
print S6
print S1
print I1
print S6
print S2
print S3
dec I1
eq I1, I2, bottle_of # Aww, we're getting low
print I1
print S6
print S4
ne I1, I2, n_bottles # keep on drinkin'
bottle_of: print I1
print S5
print S4
branch one_bottle # bout time for a liver transplant
one_bottle: print I1 # it's been fun
print S5
print S1
print I1
print S5
print S2
print S3
print S7
print S8
end
-- dug