Evaluated proc +pics {who link} {set ::irc_pics([string toupper $who]) $link}