Evaluated proc fifth l {lindex $l 4}