Evaluated proc coolfont2 args {regsub -all {[a-z]} [rcolourise [scale [wfg $args Letters]]] \u2588}