r-cat.tcl