Add myapp4.tcl, rev 1