modified 4.tcl