Evaluated proc seen who { set t 0; set c {}; foreach line [log] { if {[second $line] == $who} {set t [first $line]; set c [last $line]} }; if { $t == 0 } {. no record of $who} {. last seen [^B][duration [- [timestamp] $t]][^B] ago saying [^B]\"$c\"} }