choose_thread_move.tcl