add one simple tcl program