#define printf(prefix, arg...) \

   tadsSay(prefix); "\n"; \

   arg#foreach*"\t"; tadsSay(#@arg + ' = ' + arg); "\n"; **

#define makelist(ele...) [ele#foreach#ele#,#]

#define makelist2(nm, eles...) (nm = [eles#argcount, ## eles])

#define inheritNext(prop, args...) \

    doInheritNext(nil, &prop, args#foreach#args#,#)

#define printConcat(prefix, args...) \

    tadsSay(prefix args#ifnempty#,# args#foreach#args#+#)

main(args)

{

    local a = 1;

    local b = 2;

    local xyz = 3;

    local lst;

    printf('hello', a, b, xyz);

    printf('goodbye');

    "\blist 1 a:\n";

    lst = makelist(1, 2, 3);

    foreach(local cur in lst)

        "cur = <<cur>>\n";

    "\blist 1 b:\n";

    lst = makelist();

    foreach(local cur in lst)

        "cur = <<cur>>\n";

    "\blist 1 c:\n";

    lst = makelist(8);

    foreach(local cur in lst)

        "cur = <<cur>>\n";

    "\blist2 a:\n";

    makelist2(lst, 7, 8, 9, 10);

    foreach(local cur in lst)

        "cur = <<cur>>\n";

    "\blist2 b:\n";

    makelist2(lst);

    foreach(local cur in lst)

        "cur = <<cur>>\n";

    inheritNext(sdesc, 1, 2, 3);

    inheritNext(sdesc, 'hello');

    inheritNext(ldesc);

    "\b";

    printConcat('no-arguments'); "\n";

    printConcat('args', 'a', 'b', 'c'); "\n";

}

property sdesc, ldesc;

doInheritNext(obj, prop, [args])

{

    "doInheritNext: ";

    switch(prop)

    {

    case &sdesc: "sdesc"; break;

    case &ldesc: "ldesc"; break;

    default: "unknown prop"; break;

    }

    "\n";

    foreach(local cur in args)

        "\t<<cur>>\n";