Evaluated proc dcctime {} {set ok [map [seq 1 100] {x {dcctext:color [join [keyword]_[keyword][rpick $::extensions] " "]}}]; join $ok \n}