Overloading Method Invocation

var c := class Value { var m := method [a] { return a };

var n := class Value {var invoke:= method [a] return "Overloading method invocation is "+a}; };

print (new c).m ["invoked in a usual way\n"]; // x->m->a

var x:=new c ; print ((x.m).invoke ["Invoked as a pre-defined method\n"]);

print (new c).n ["invoked in a usual way\n"]; // x->m->a

print ((x.n).invoke ["invoked as a normal method\n"]);