Evaluated proc bigfont_a str { m [explode $str] {x {. $x$x}} "" }