Evaluated proc vappend {str a} { join [map [nlsplit $str] {x {. $x$a}}] \n}