decode.tcl