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

   Preprocess 7: Remove spaces and embed code

   10/11/00
                                                                           */

char p[2<<16]=

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

      ",e[2B<<B16];"
      "Cint@i,j,k,o,c,d;"
      "s(Dchar*a)"
      "{"
         "Cfor(i=o=0;a[i];iB++)"
            "Bif(a[i]-B32)"
               "a[oB++]=a[i];"
         "a[o]=0;"
      "}"
      "f()"
      "{"
         "Cfor(;(c=e[o])<B33B&&c;oB++);"
      "}"
      "x(Dchar@a)"
      "{"
         "f();"
         "e[oB++]=a;"
      "}"
      "t()"
      "{"
         "Bif((c=p[i])>B64B&&c<B91)"
         "{"
            "f();"
            "c=p[iB++]-B64;"
            "Cfor(j=c;j>0;jB--)"
            "{"
               "Bif(e[o]B==B10)"
                  "Cfor(k=(2B<<B16)-1;k>o;kB--)"
                     "e[k]=e[k-1];"
               "e[oB++]=p[iB++];"
            "}"
         "}"
         "Delse@Bif(c-B64)"
         "{"
            "x(p[iB++]);"
         "}"
         "Delse"
         "{"
            "iB++;"
            "Bif(e[o]<B33)"
               "Bif(e[o])"
               "{"
                  "oB++;"
                  "Freturn;"
               "}"
            "e[o]=B32;"
         "}"
      "}"
      "m(Dchar*a)"
      "{"
         "Cfor(d=0;d<8;dB++)"
            "t();"
         "Cfor(d=0;a[d];)"
         "{"
            "x(B34);"
            "Cfor(j=k=0;e[o+j]>B10;jB++)"
               "Bif(e[o+j]B==B59)"
                  "kB++;"
            "Cfor(j=1;a[d]B&&j<k;jB++)"
               "x(a[dB++]);"
            "x(B34);"
         "}"
      "}"
      "Dmain(a)"
      "{"
         "Bif(a>1)"
         "{"
            "Cfor(i=0;(c=Ggetchar())>0;e[iB++]=c);"
            "e[i]=0;"
            "Cfor(i=0;i<2B<<B16;q[iB++]=0);"
            "Cfor(i=j=0;e[j];jB++)"
               "d="
                  "(c=e[j])B==B10"
                  "?"
                     "q[i]"
                     "?(q[B++i]=B33)"
                     ":(q[iB++]=B33)"
                  ":"
                     "c<B33"
                     "?"
                        "(q[i]>B34B&&q[i]<B91)"
                        "?q[i]B++"
                        ":q[i]"
                           "?(q[B++i]=B35)"
                           ":(q[i]=B35)"
                     ":"
                        "(q[i]>B92B&&q[i]<C126)"
                        "?q[i]B++"
                        ":q[i]"
                           "?(q[B++i]=B93)"
                           ":(q[i]=B93);"
         "}"
         "s(q);"
         "s(p);"
         "Cfor(o=0;o<2B<<B16;e[oB++]=0);"
         "Cfor(i=o=0;q[i];iB++)"
            "Bif((j=q[i])B==B33)"
               "e[oB++]=B10;"
            "Delse@"
               "Cfor(k=j<B92?B35:B93;"
                   "kB++B<=j;"
                   "e[oB++]=j<B92?B32:B59);"
         "i=o=0;"
         "t();"
         "m(p);"
         "m(q);"
         "Cfor(;p[i];t());"
         "Cfor(i=0;e[i];Gputchar(e[iB++]));"
      "}"

   ,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++]));
}