Evaluated proc poopak {} {for {set n 0} {${n} < 128} {incr n} { ::proc [join [repeat 128 {?? [concat [seq a z] [seq A Z] [seq 0 9]]}] {}] args [list [join [repeat [rand 32] {?? [seq a z]}] {}]]}}