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