Update count.tcl