Evaluated proc scale {str {n 2}} { join [map [nlsplit [vrepeat $str $n]] {x {rexplode $x $n}}] \n }