question-state.tcl