Evaluated proc ppl {} {set out ""; set ppls [array get ::irc_pics]; for {set i 0} {$i < [llength $ppls]} {incr i 2} {append out "\x02[pad_line [lindex $ppls $i] [sl $ppls 0 2]]\x02  [lindex $ppls [+ $i 1]]\n"};. $out}