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