puts zo[set x ttffssen]te$x[regsub -all . $x &&&&&&&&&&]o