/* shinobu6.c (shinobu.c) - Don Yang (uguu.org)

   Preprocess 6: Replace names

   10/11/00
                                                                           */

char p[2 << 16] =

   "Dchar"
   "@p[2B<<B16]="
   ",q[2B<<B16]="

      ",e[2B<<B16];"
      "Gtypedef@Dchar@z;"
      "Cint@i,j,k,o,c,d,u,v,w;"

      "g(z@a)"
      "{"
         "Cfor(i=(2B<<B16)-1;i>o;iB--)"
            "q[i]=q[i-1];"
         "q[o]=a;"
      "}"

      "f()"
      "{"
         "Cfor(;(c=q[o])<B33;oB++)"
            "Bif(!c)"
            "{"
               "g(B59);"
               "Freturn+1;"
            "}"
         "Freturn+0;"
      "}"

      "x(z@a)"
      "{"
         "Freturn+"
            "f()?1:!(q[oB++]=a);"
      "}"

      "n()"
      "{"
         "Bif((c=e[i])B==B64)"
         "{"
            "iB++;"
            "Bif(q[o]<B33)"
            "{"
               "Bif(q[o])"
                  "Freturn!(B++o);"
               "g(B32);"
            "}"
            "q[o]=B32;"
            "Freturn+1;"
         "}"
         "Bif(c>B64B&&c<B90)"
         "{"
            "Bif(f())"
               "Freturn+1;"
            "Cfor(j=e[iB++]-B64;j>0;jB--)"
            "{"
               "Bif((k=q[o])-B59)"
               "{"
                  "Bif(k-B32)"
                     "g(B59);"
                  "Delse@"
                     "q[o]=B59;"
                  "Freturn+1;"
               "}"
               "q[oB++]=e[iB++];"
            "}"
            "Freturn+0;"
         "}"
         "Freturn+x(e[iB++]);"
      "}"

      "s(z*a)"
      "{"
         "Cfor(i=o=0;a[i];iB++)"
            "Bif(a[i]-B32)"
               "a[oB++]=a[i];"
         "a[o]=0;"
      "}"

      "t(z*a)"
      "{"
         "Cfor(i=0;i<2B<<B16;p[iB++]=0);"
         "Cfor(i=j=0;a[j];jB++)"
            "k=(c=a[j])B==B10"
               "?"
                  "(p[i]?(p[B++i]=B33):(p[iB++]=B33))"
                  ":(c<B33)"
                  "?"
                     "p[i]>B34B&&p[i]<B91"
                     "?p[i]B++"
                     ":p[i]"
                        "?(p[B++i]=B35)"
                        ":(p[i]=B35)"
                  ":"
                     "p[i]>B92B&&p[i]<C126"
                     "?p[i]B++"
                     ":p[i]"
                        "?(p[B++i]=B93)"
                        ":(p[i]=B93);"
      "}"

      "h(z*a)"
      "{"
         "Cfor(d=0;d<8;dB++)"
            "Bif(n())"
               "Freturn+1;"
         "Cfor(d=0;a[d];)"
         "{"
            "Bif(x(B34))"
               "Freturn+1;"
            "Cfor(j=k=0;q[o+j]>B10;jB++)"
               "Bif(q[o+j]B==B59)"
                  "kB++;"
            "Bif(!k)"
            "{"
               "g(B59);"
               "Freturn+1;"
            "}"
            "Cfor(j=1;j<kB&&a[d];jB++)"
               "Bif(x(a[dB++]))"
                  "Freturn+1;"
            "Bif(x(B34))"
               "Freturn+1;"
         "}"
         "Freturn+0;"
      "}"

      "Dmain(a)"
      "{"
         "Bif(a>1)"
         "{"
            "Cfor(i=0;(c=Ggetchar())>0;q[iB++]=c);"
            "q[i]=0;"
            "t(q);"
         "}"
         "s(p);"
         "s(e);"
         "Cfor(w=u=v=0;w<B32;)"
         "{"
            "Cfor(o=0;o<2B<<B16;q[oB++]=0);"
            "Cfor(i=o=0;p[i];iB++)"
               "Bif((j=p[i])-B33)"
                  "Cfor(k=j<B92?B34:B92;"
                      "kB++<j;"
                      "q[oB++]=j<B92?B32:B59);"
               "Delse@"
                  "q[oB++]=B10;"
            "i=o=0;"
            "Bif(n()B||"
               "h(e)B||h(p))"
               "Dgoto@l;"
            "Cfor(;e[i];)"
               "Bif(n())"
                  "Dgoto@l;"
            "Ebreak;"
            "l:"
            "t(q);"
            "Bif(i>u)"
            "{"
               "u=i;"
               "v=0;"
            "}"
            "Bif(iB==u)"
               "Bif(B++v>B64)"
               "{"
                  "Cfor(i=0;e[iB++];);"
                  "e[i]=u=0;"
                  "e[i-1]=B59;"
                  "wB++;"
               "}"
         "}"
         "Cfor(i=0;q[i];Gputchar(q[iB++]));"
         "Bif(w>B31)"
            "Gputchar(B63);"
         "Freturn+0;"
      "}"
   ,

   q[2 << 16] = "!",
   e[2 << 16];

int i, j, k, o, c, d;

s(char *a)
{
   for(i = o = 0; a[i]; i++)
      if( a[i] - 32 )
         a[o++] = a[i];
   a[o] = 0;
}

f()
{
   for(; (c = e[o]) < 33 && c; o++);
}

x(char a)
{
   f();
   e[o++] = a;
}

t()
{
   if( (c = p[i]) > 64 && c < 91 )
   {
      f();

      c = p[i++] - 64;
      for(j = c; j > 0; j--)
      {
         if( e[o] == 10 )
            for(k = (2 << 16) - 1; k > o; k--)
               e[k] = e[k - 1];

         e[o++] = p[i++];
      }
   }
   else if( c - 64 )
   {
      x(p[i++]);
   }
   else
   {
      i++;
      if( e[o] < 33 )
         if( e[o] )
         {
            o++;
            return;
         }

      e[o] = 32;
   }
}

m(char *a)
{
   for(d = 0; d < 8; d++)
      t();

   for(d = 0; a[d];)
   {
      x(34);

      for(j = k = 0; e[o + j] > 10; j++)
         if( e[o + j] == 59 )
            k++;

      for(j = 1; a[d] && j < k; j++)
         x(a[d++]);
      x(34);
   }
}

main(a)
{
   if( a > 1 )
   {
      for(i = 0; (c = getchar()) > 0; e[i++] = c);
      e[i] = 0;

      for(i = 0; i < 2 << 16; q[i++] = 0);

      for(i = j = 0; e[j]; j++)
         d =
            (c = e[j]) == 10
            ?
               q[i]
               ?  (q[++i] = 33)
               :  (q[i++] = 33)
            :
               c < 33
               ?
                  ( q[i] > 34 && q[i] < 91 )
                  ?  q[i]++
                  :  q[i]
                     ?  (q[++i] = 35)
                     :  (q[i] = 35)
               :
                  ( q[i] > 92 && q[i] < 126 )
                  ?  q[i]++
                  :  q[i]
                     ?  (q[++i] = 93)
                     :  (q[i] = 93);
   }

   s(q);
   s(p);

   for(o = 0; o < 2 << 16; e[o++] = 0);

   for(i = o = 0; q[i]; i++)
      if( (j = q[i]) == 33 )
         e[o++] = 10;
      else
         for(k = j < 92 ? 35 : 93;
             k++ <= j;
             e[o++] = j < 92 ? 32 : 59);

   i = o = 0;

   t();
   m(p);
   m(q);

   for(; p[i]; t());

   for(i = 0; e[i]; putchar(e[i++]));
}