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