Evaluated proc ppl {} {set out ""; set ppls [array get irc_pics]; for {set i 0} {$i < [llength $ppls]} {incr i} {append out hi};. $out}