Evaluated proc coolfont3 args {regsub -all {[a-z]} [rwfg $args Letters 18] X}