diff --git a/procs/BOGERED b/procs/BOGERED
new file mode 100644
index 0000000..eb7f776
--- /dev/null
+++ b/procs/BOGERED
@@ -0,0 +1 @@
+c {if [catch {regsub -all {\\*} [decode $::alphabet([string toupper $c])] " "} err] {return [join [string repeat "{   } " 5] \n]} {return $err}}