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