Evaluated proc funfont str {regsub -all {:} [regsub -all {[a-z]} [rcolorize [fg $str Doh]] ?] ?}