[moderate] remove characters - tcl