diff --git a/procs/_index b/procs/_index
index 77d3837..8e95e66 100644
--- a/procs/_index
+++ b/procs/_index
@@ -14,6 +14,7 @@ char 71fafc4e2fc1e47e234762a96b80512b6b5534c2
 fart' f82f87b4bb1f1de348aea420ff40c4697f8cc41f
 gay 2871591e64f027a23fadafaa00305a8bd3484292
 gay_real 7350d9495ac03aaeea097bcb716a52eacbda7ce0
+gaybowchar e81d45ec6e2f3c540f4b8df4e6177d3c6327d216
 happynewyear 01bc7842cd7d641aa5c9b5328d0b36099c4c96ca
 isgitworkingatall 446e36f703ad4368f85a4fb396371f7e6ec4d86e
 lex_fridman_reading 7d1d02d6635d653a60b8681b144ef62e9dc3d21a
diff --git a/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216 b/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216
new file mode 100644
index 0000000..a0addf3
--- /dev/null
+++ b/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216
@@ -0,0 +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,$g*"] "*\\1"]}; join $ret \n}