(TXT) counter.tcl