/* Test the nargs() and args() intrinsics */ using namespace oadl; proc addNums() { var i, n, result; n = nargs(); result = 0; for( i = 0; i < n; i += 1 ) { result += arg( i ); } return result; } proc main() { say( addNums( 1, 2, 3, 4, 5 ), "\n" ); say( addNums( 2, 4, 6, 8 ), "\n" ); }