Evaluated proc coolfont args {regsub -all {[a-z]} [rwfg [join [escape_glob $args] " "] Letters 18] \u2588}