--- compface/arith.c.orig
+++ compface/arith.c
@@ -17,17 +17,17 @@
 #include "compface.h"
 
 void
-RevPush(Prob *p)
+RevPush(p)
+Prob *p;
 {
-    if (NumProbs >= PIXELS * 2 - 1) {
+	if (NumProbs >= PIXELS * 2 - 1)
         longjmp(comp_env, ERR_INTERNAL);
-    }
     ProbBuf[NumProbs++] = p;
 }
 
- 
 void
-BigPush(Prob *p)
+BigPush(p)
+Prob *p;
 {
     static WORD tmp;
 
@@ -36,41 +36,45 @@
     BigAdd(tmp + p->p_offset);
 }
 
-
 int
-BigPop(Prob *p)
+BigPop(p)
+register Prob *p; 
 {
     static WORD tmp;
-    int i;
+	register int i;
 
     BigDiv(0, &tmp);
     i = 0;
-    while ((tmp < p->p_offset) || (tmp >= p->p_range + p->p_offset)) {
+	while ((tmp < p->p_offset) || (tmp >= p->p_range + p->p_offset))
+	{
         p++;
         i++;
     }
     BigMul(p->p_range);
     BigAdd(tmp - p->p_offset);
-    return(i);
+	return i;
 }
 
-
 #ifdef DEBUG
+/* Print a BigInt in HexaDecimal
+ */
 void
-BigPrint()              /* Print a BigInt in HexaDecimal. */
+BigPrint()
 {
-    int i, c, count;
-    WORD *w;
+	register int i, c, count;
+	register WORD *w;
 
     count = 0;
     w = B.b_word + (i = B.b_words);
-    while (i--) {
+	while (i--)
+	{
         w--;
         c = *((*w >> 4) + HexDigits);
         putc(c, stderr);
         c = *((*w & 0xf) + HexDigits);
         putc(c, stderr);
-        if (++count >= 36) {
+		if (++count >= 36)
+		{
             putc('\\', stderr);
             putc('\n', stderr);
             count = 0;
@@ -78,33 +82,32 @@
     }
     putc('\n', stderr);
 }
-#endif /*DEBUG*/
+#endif
 
-
 /* Divide B by a storing the result in B and the remainder in the word
- * pointer to by r.
+ * pointer to by r
  */
-
 void
-BigDiv(WORD a, WORD *r)
+BigDiv(a, r)
+register WORD a, *r;
 {
-    int i;
-    WORD *w;
-    COMP c, d;
+	register int i;
+	register WORD *w;
+	register COMP c, d;
 
     a &= WORDMASK;
-    if ((a == 1) || (B.b_words == 0)) {
+	if ((a == 1) || (B.b_words == 0))
+	{
         *r = 0;
         return;
     }
-
-/* Treat this as a == WORDCARRY and just shift everything right a WORD */
-
-    if (a == 0)    {
+	if (a == 0)	/* treat this as a == WORDCARRY */
+	{			/* and just shift everything right a WORD */
         i = --B.b_words;
         w = B.b_word;
         *r = *w;
-        while (i--) {
+		while (i--)
+		{
             *w = *(w + 1);
             w++;
         }
@@ -113,42 +116,39 @@
     }
     w = B.b_word + (i = B.b_words);
     c = 0;
-    while (i--) {
+	while (i--)
+	{
         c <<= BITSPERWORD;
-        c += (COMP) *--w;
-        d = c / (COMP) a;
-        c = c % (COMP) a;
-        *w = (WORD) (d & WORDMASK);
+		c += (COMP)*--w;
+		d = c / (COMP)a;
+		c = c % (COMP)a;
+		*w = (WORD)(d & WORDMASK);
     }
     *r = c;
-    if (B.b_word[B.b_words - 1] == 0) {
+	if (B.b_word[B.b_words - 1] == 0)
         B.b_words--;
-    }
 }
 
-
-/* Multiply a by B storing the result in B. */
-
+/* Multiply a by B storing the result in B
+ */
 void
-BigMul(WORD a)
+BigMul(a)
+register WORD a;
 {
-    int i;
-    WORD *w;
-    COMP c;
+	register int i;
+	register WORD *w;
+	register COMP c;
 
     a &= WORDMASK;
-    if ((a == 1) || (B.b_words == 0)) {
+	if ((a == 1) || (B.b_words == 0))
         return;
-    }
-
-/* Treat this as a == WORDCARRY and just shift everything left a WORD */
-
-    if (a == 0) {
-        if ((i = B.b_words++) >= MAXWORDS - 1) {
+	if (a == 0)	/* treat this as a == WORDCARRY */
+	{			/* and just shift everything left a WORD */
+		if ((i = B.b_words++) >= MAXWORDS - 1)
             longjmp(comp_env, ERR_INTERNAL);
-        }
         w = B.b_word + i;
-        while (i--) {
+		while (i--)
+		{
             *w = *(w - 1);
             w--;
         }
@@ -158,81 +158,81 @@
     i = B.b_words;
     w = B.b_word;
     c = 0;
-    while (i--) {
+	while (i--)
+	{
         c += (COMP)*w * (COMP)a;
         *(w++) = (WORD)(c & WORDMASK);
         c >>= BITSPERWORD;
     }
-    if (c) {
-        if (B.b_words++ >= MAXWORDS) {
+	if (c)
+	{
+		if (B.b_words++ >= MAXWORDS)
             longjmp(comp_env, ERR_INTERNAL);
-        }
         *w = (COMP)(c & WORDMASK);
     }
 }
 
-
-/* Subtract a from B storing the result in B. */
-
+#if 0
+/* Subtract a from B storing the result in B
+ */
 void
-BigSub(WORD a)
+BigSub(a)
+WORD a;
 {
-    int i;
-    WORD *w;
-    COMP c;
+	register int i;
+	register WORD *w;
+	register COMP c;
 
     a &= WORDMASK;
-    if (a == 0) {
+	if (a == 0)
         return;
-    }
     i = 1;
     w = B.b_word;
-    c = (COMP) *w - (COMP) a;
-    *w = (WORD) (c & WORDMASK);
-    while (c & WORDCARRY) {
-        if (i >= B.b_words) {
+	c = (COMP)*w - (COMP)a;
+	*w = (WORD)(c & WORDMASK);
+	while (c & WORDCARRY)
+	{
+		if (i >= B.b_words)
             longjmp(comp_env, ERR_INTERNAL);
-        }
-        c = (COMP) *++w - 1;
-        *w = (WORD) (c & WORDMASK);
+		c = (COMP)*++w - 1;
+		*w = (WORD)(c & WORDMASK);
         i++;
     }
-    if ((i == B.b_words) && (*w == 0) && (i > 0)) {
+	if ((i == B.b_words) && (*w == 0) && (i > 0))
         B.b_words--;
-    }
 }
+#endif
 
-
-/* Add to a to B storing the result in B. */
-
+/* Add to a to B storing the result in B
+ */
 void
-BigAdd(WORD a)
+BigAdd(a)
+WORD a;
 {
-    int i;
-    WORD *w;
-    COMP c;
+	register int i;
+	register WORD *w;
+	register COMP c;
 
     a &= WORDMASK;
-    if (a == 0) {
+	if (a == 0)
         return;
-    }
     i = 0;
     w = B.b_word;
     c = a;
-    while ((i < B.b_words) && c) {
-        c += (COMP) *w;
-        *w++ = (WORD) (c & WORDMASK);
+	while ((i < B.b_words) && c)
+	{
+		c += (COMP)*w;
+		*w++ = (WORD)(c & WORDMASK);
         c >>= BITSPERWORD;
         i++;
     }
-    if ((i == B.b_words) && c) {
-        if (B.b_words++ >= MAXWORDS) {
+	if ((i == B.b_words) && c)
+	{
+		if (B.b_words++ >= MAXWORDS)
             longjmp(comp_env, ERR_INTERNAL);
-        }
-        *w = (COMP) (c & WORDMASK);
+		*w = (COMP)(c & WORDMASK);
     }
 }
-
 
 void
 BigClear()