Evaluated proc vpad {str lines} {append str [string repeat \n [expr $lines-[llength [nlsplit $str]]]]}