tcl_reverse_string