die.tcl