Evaluated proc dccrain args {set cum [map [seq 1 100] {x {dcctext:color [strip_all [join $args " "]]}}]; join $cum \n}