4.4BSD/usr/src/contrib/calc-1.26.4/lib/varargs.cal

/*
 * Copyright (c) 1993 David I. Bell
 * Permission is granted to use, distribute, or modify this source,
 * provided that this copyright notice remains intact.
 *
 * Example program to use 'varargs'.
 *
 * Program to sum the cubes of all the specified numbers.
 */

define sc()
{
	local s, i;

	s = 0;
	for (i = 1; i <= param(0); i++) {
		if (!isnum(param(i))) {
			print "parameter",i,"is not a number";
			continue;
		}
		s += param(i)^3;
	}
	return s;
}

global lib_debug;
if (!isnum(lib_debug) || lib_debug>0) print "sc(a, b, ...) defined";