Evaluated proc smile {} {regsub -all {:} [^C]4[fg e "Doh"] \u2588}