diff --git a/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216 b/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216 index 7f10625..3cb1dd2 100644 --- a/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216 +++ b/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216 @@ -1 +1 @@ -c {set c [string toupper $c]; if ![info exists ::alphabet($c)] {return [join [string repeat "{ } " 5] \n]}; set ret [list]; foreach line [split [decode $::alphabet($c)] \n] {set g [gay]; lappend ret [regsub -all {\*($|\n| )} [regsub -all {(^|\n| )\*} $line "\\1$g,*"] "\\1"]}; join $ret \n} +c {set c [string toupper $c]; if ![info exists ::alphabet($c)] {return [join [string repeat "{ } " 5] \n]}; set ret [list]; foreach line [split [decode $::alphabet($c)] \n] {set g [gay]; lappend ret [regsub -all {\*($|\n| )} [regsub -all {(^|\n| )\*} $line "\\1$g*"] "*\\1"]}; join $ret \n}