Evaluated proc funfont2 args {regsub -all {%} [fg $args Contrast] [rand_ascii_letter]}