Evaluated proc +pics {who link} {set ::ok123 [setval $::ok123 [string toupper [first $who]] [first $link]]; set ::irc_ppl [update_ppl]; void}