beer bottles

[rsc@research.att.com]

a slightly better version

#!/bin/rc
# rc shell version of 99 bottles of beer
# by Tom Culliton (culliton@clark.net)
# revised by Russ Cox (rsc@research.att.com)

bottles = bottles; one = one
digits = (9 8 7 6 5 4 3 2 1)
for(i in $digits '') for(j in $digits 0) { 
	n = $i$j
	if(! ~ $n 0) {
		if(~ $n 1) { bottles = bottle; one = it }
		if(! ~ $n 99) {
			echo $n $bottles 'of beer on the wall.'
			echo
		}
		echo $n $bottles 'of beer on the wall,'
		echo $n $bottles 'of beer,'
		echo 'take' $one 'down and pass it around,'
	}
}