Evaluated proc vline {str n} {lindex [nlsplit $str] $n}