Evaluated proc vpad str { join [padlinesto [longest_line $str] $str] \n }