Evaluated proc tc {c args} { return [^C][concat2 $c [args]][^C] }