tcl state use fileevent coroutine to keep state

http://www.maplefish.com/todd/tcl_net_idioms.html#Carry state using fileevent

also
http://wiki.tcl.tk/_/ref?N=21446