added program.tcl to wait for program completion