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