re: 99 bottles in an rc shell script.

[byron@netapp.com (Byron Rakitzis)]

How about this way to build a list up:

#!/bin/rc

fn stack_bottles {
	count=$1
	if (~ $count *[~0-9]* || ~ $count ()) {
		echo $0: count must be a nonnegative decimal integer >[1=2]
		exit 1
	}
	bottles=()
	while (!~ $#bottles $count)
		bottles=(beer $bottles)
	echo $bottles
}

# the rest is cribbed from tom

*=`{stack_bottles $*}
bottles=$#*
one=one

while (!~ $#* 0) {
        echo $bottles 'of beer on the wall,' ; echo $bottles 'of beer,'
        echo 'take' $one 'down and pass it around,'
        shift ; switch ($#*) {
                case 1 ; bottles = '1 bottle' ; one = it
                case 0 ; bottles = 'no more bottles'
                case * ; bottles = $#*^' bottles'
        }
        echo $bottles 'of beer on the wall.' ; echo
}