Evaluated proc char c {if [catch {regsub -all {\*} $::alphabet([string toupper $c]) "X"} err] {return [join [string repeat "{   } " 5] \n]} {return $err}}