Create count.tcl