Evaluated proc seen who { set t 0; set c {}; foreach [lreverse [log]] line { if {[second $line] == $who} {set t [first $line]; set c [last $line]} } }