/* 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" );
}