add myapp4.tcl