Evaluated proc rexplode {str {n 1}} { join [map [explode $str] {x {string repeat $x $n}}] "" }