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