[easy] find a writer - tcl