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