Evaluated proc funfont str {regsub -all {:} [regsub -all {([a-z]|[A-Z])} [rcolorize [fg $str Doh]] \u2588] \u2588}