Evaluated proc vrepeat {str n} { join [map [nlsplit $str] {x {string repeat $x\n $n}} ] "" }