// Test overloading the procedure call operator.
using namespace oadl;

class procClass {
    public operator () () {
        var i;
        for(i = 0; i < nargs(); i++) {
            say("arg(",i,") = ", arg(i), "\n");
        }
    }
}

proc main()
{
    var a;
    a = new procClass();
    a(10, 20, 30);
}