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