Added script of Tcl/Tk for K