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