proc GetBottleNumber(n: int): string =
var bs: string
if n == 0:
bs = "No more bottles"
elif n == 1:
bs = "1 bottle"
else:
bs = $n & " bottles"
return bs & " of beer"
for bn in countdown(99, 1):
var cur = GetBottleNumber(bn)
echo(cur, " on the wall, ", cur, ".")
echo("Take one down and pass it around, ", GetBottleNumber(bn-1), " on the wall.\n")
echo "No more bottles of beer on the wall, no more bottles of beer."
echo "Go to the store and buy some more, 99 bottles of beer on the
cHJvYyBHZXRCb3R0bGVOdW1iZXIobjogaW50KTogc3RyaW5nID0KICB2YXIgYnM6IHN0cmluZwogIGlmIG4gPT0gMDoKICAgIGJzID0gIk5vIG1vcmUgYm90dGxlcyIKICBlbGlmIG4gPT0gMToKICAgIGJzID0gIjEgYm90dGxlIgogIGVsc2U6CiAgICBicyA9ICRuICYgIiBib3R0bGVzIgogIHJldHVybiBicyAmICIgb2YgYmVlciIKIApmb3IgYm4gaW4gY291bnRkb3duKDk5LCAxKToKICB2YXIgY3VyID0gR2V0Qm90dGxlTnVtYmVyKGJuKQogIGVjaG8oY3VyLCAiIG9uIHRoZSB3YWxsLCAiLCBjdXIsICIuIikKICBlY2hvKCJUYWtlIG9uZSBkb3duIGFuZCBwYXNzIGl0IGFyb3VuZCwgIiwgR2V0Qm90dGxlTnVtYmVyKGJuLTEpLCAiIG9uIHRoZSB3YWxsLlxuIikKIAplY2hvICJObyBtb3JlIGJvdHRsZXMgb2YgYmVlciBvbiB0aGUgd2FsbCwgbm8gbW9yZSBib3R0bGVzIG9mIGJlZXIuIgplY2hvICJHbyB0byB0aGUgc3RvcmUgYW5kIGJ1eSBzb21lIG1vcmUsIDk5IGJvdHRsZXMgb2YgYmVlciBvbiB0aGU=