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