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