Evaluated proc vprepend {str p} {join [llprepend [nlsplit $str] $p] \n}