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