Evaluated proc funfont3 {str} {regsub -all {:} [rcolorize [fg $str "Doh"]] \u2588}