Evaluated proc seen who { set t 0; foreach [lreverse [log]] line { if {[second $line] == $who} {set t [first $line]} }; if { $t == 0 } {. no record of $who} {} }