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