Evaluated proc test {} { set list [seq 0 2]; set block {. $x}; test2 $list [uplevel 1 $block] }