modified 5.tcl