Evaluated proc get_chats who { set out [list]; foreach person [log] { if {[second $person] == $who} {lappend out [last $person]} }; return $out }