/* Don't really know what this tests :-) */

proc main( args )
{
    var
        i, n;

    i = 1;
    n = args.length();
    while( i < n ) {
        say( args[i], " " );
        i = i + 1;
    }
    say( "\n" );
}

proc fact( num )
{
    if( num < 1 )
        return 1;
    else
        return num * fact( num - 1 );
}

proc foo;
const bar = 3;