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