finish.tcl