Shutting down a thread after certain number of messages

I wrote a tcl proc that counts 3 messages then shuts down the thread once the third message has gone through.