Evaluated proc lline str { longest_line $str }