[easy] split the number - tcl