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