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