Evaluated proc update_ppl args { set ::irc_ppl [fmt [m [chunk $::ok123 2] {x {. [^B][first $x][^O] [second $x]}} \n]] }