99bottles.red

Red []

max: 99
bottles: max

while [bottles > 0] [
  bottle_word: either bottles = 1 ["bottle"]["bottles"]
  if bottles <> max [
    print "Take one down and pass it arround"
    print [bottles bottle_word "of beer on the wall"]
    print ""
  ]
  print [bottles bottle_word "of beer on the wall"]
  print [bottles bottle_word "of beer"]
  bottles: bottles - 1
]

print "Take one down and pass it arround"
print "No more bottles of beer on the wall"
print ""
print "Go to the store and buy some more"
print [max "bottles of beer on the wall"]