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