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