Evaluated proc funfont2 str {regsub -all {:} [regsub -all {([a-z]|[A-Z])} [rcolorize [fg $str Doh]] [rb_o]] [rb_i]}