Evaluated proc lastblob_ who {set i 0; foreach l [lreverse [log]] { if { [second $l] == $who } { return $i }; incr i } }