Evaluated proc coolgang {} {set gang [map [seq 1 100] {x {dcctext [fuck [rand 100]]}}]; join $gang \n;}