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