Create greet.tcl