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