#!/usr/bin/perl -w
# generate_source.pl - Don Yang (uguu.org)
#
# 07/08/07

use strict;

my $text = join '', <DATA>;
$text =~ s/\s//g;

foreach my $char (unpack 'C*', $text)
{
   print chr($char ^ 5);
}
print "\n";

__DATA__
"
},

*a, n[1<<16], y, *u, t[1<<16], *i;
int(_),l;

/*(455)U*/#  include/*.omoikane.njkudnpZ|jphp.*2007*7*/<stdio.h>/*h|jk{**_PK*/

void Z()
{
   l = l - 34;
   for(;
       l--; *a++ = 32);
}

int/**/main()
{
   a = n;
   y = 5;
   for(u = c[5]; *u; u++)
      if( *u - 32 )
      {
         for(i = c[*u - 98]; *i; i++)
            if( 32 - *i )
               *a++ = *i ^ y;
         y ^= 5;
      }

   _ = l; u = n; a = t; i = c[+2 //**/2/*6(8i8p8k8d8q8l8f8**/
   ];
   for(; *i; ++i)
   {
      if( (l = *i) > 93 )
      {
         l = (l + -94) * 4 + 2;
         for(_ = 6; _--;
             *a++ = ((l = l / 2) & 1)
                ?  (y ^= (34 - *u) ? 0 : 1)
                   ? *u++ : *u++
                :  4*8);
      }
      if( l > 66 )
      {
         l = (l - 65);
         for(; --l; *a++ = *u++)
            y ^= *u - 34 ? 0 : 1;
      }
      ;
      if( l > 34 )
         Z();
      if( 33 == l )
      {
         if( y )
         {
            *--a = 92;
            a++;
            u--;
         }
         *a++ = 10;
      }
   }

   ; /*<*.455.vdlb|jpolZ|p|pnj.*/
   *a = 0;
   return+puts(t);
}