print~$_/3|0||99," bottle",substr("s of beer on the wall. X",6/$_%2,-4**($_%3)),(", ",$_<-4?". Take one down and pass it around, ":". Go to the store and buy some more, ")[$_%3-3]for-299..-3