Evaluated proc funfont2 args {set a1 [rand 0 8]; set a2 [+ $a1 1]; string map "$a1 \u2588 $a2 \u2592" [regsub -all {.} [regsub -all {%} [fg $args Contrast] $a1] $a2]}