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