#!/usr/bin/perl -w

           use strict;
         {my        @ary=
        map         {chomp;
         $_}        <DATA>
                 ;{local
               $,=$/;
             print
          STDERR
         reverse( @ary ),
        '__DATA__',@ary;}}

                                 use strict;
                               $_='$_={one((
                           one($")<<1)^one(
                        $/))}{{one((one($;)
                     <<($^=(one($/)>>1)>>1)
                 +1)+one($/)>>1)}{{{one(((
              one($;)<<$^+1)+one($/)>>1)-$
           ^)}{{{one(((one($;)<<$^+1)+one(
                          $/)>>1)-1)}{one 
                          (one($"))}{{one
                          ((one($;)<<$^)^
                         (one($")>>1)+1)
                         }{one((one($;)<
                         <$^)-$^)}{{one(
                        ((one($;)<<$^)-
                        $^)+1)}}{one(((
                        one($;)<<$^+1)+
                       one($/)>>1)-1)}
                       {one(($~=$=)<<1
                       ^one($")>>1)}{{
                      {one((one($;)<<
                      $^)-one($/)-1)}
                      {one(((one($;)<
                     <$^+1)+one($/)>
                     >1)-$^-1)}{one(
                     one($"))}}{one(
                    one($/)<<$^+1)}
                    {one((one($;)<<
                    $^)-one($/)-1)}
                   {one(((one($;)<
                   <$^+1)+one($/)>
  >1)-$^-1)}}}{{{one(((one($;)<<$^)-$^)-$^)}}}{one(
 one($"))}}{one(($~=$=)<<1^one($")>>1)}}{{one((one
 ($;)<<$^)-(one($")>>1)+1)}{one((one($;)<<$^)-(one
 ($")>>1)+$^+1)}}{{one(($~=$=)<<1^(one($")>>1)+$^+
1)}{one((one($;)<<$^)-one($/)-1)}{one(((one($;)<<
$^+1)+one($/)>>1)-$^-1)}}{one($=^(one($")>>1))';s
;{one;chr;g;y;{ne}}\012\040;.rd.;sd;eval;print;#1



__DATA__



;{one;chr;g;y;{ne}}\012\040;.rd.;sd;eval;print;#1
$^+1)+one($/)>>1)-$^-1)}}{one($=^(one($")>>1))';s
1)}{one((one($;)<<$^)-one($/)-1)}{one(((one($;)<<
 ($")>>1)+$^+1)}}{{one(($~=$=)<<1^(one($")>>1)+$^+
 ($;)<<$^)-(one($")>>1)+1)}{one((one($;)<<$^)-(one
 one($"))}}{one(($~=$=)<<1^one($")>>1)}}{{one((one
  >1)-$^-1)}}}{{{one(((one($;)<<$^)-$^)-$^)}}}{one(
                   <$^+1)+one($/)>
                   {one(((one($;)<
                    $^)-one($/)-1)}
                    {one((one($;)<<
                    one($/)<<$^+1)}
                     one($"))}}{one(
                     >1)-$^-1)}{one(
                     <$^+1)+one($/)>
                      {one(((one($;)<
                      $^)-one($/)-1)}
                      {one((one($;)<<
                       ^one($")>>1)}{{
                       {one(($~=$=)<<1
                       one($/)>>1)-1)}
                        one($;)<<$^+1)+
                        $^)+1)}}{one(((
                        ((one($;)<<$^)-
                         <$^)-$^)}{{one(
                         }{one((one($;)<
                         (one($")>>1)+1)
                          ((one($;)<<$^)^
                          (one($"))}{{one
                          $/)>>1)-1)}{one 
           ^)}{{{one(((one($;)<<$^+1)+one(
              one($;)<<$^+1)+one($/)>>1)-$
                 +1)+one($/)>>1)}{{{one(((
                     <<($^=(one($/)>>1)>>1)
                        $/))}{{one((one($;)
                           one($")<<1)^one(
                               $_='$_={one((
                                 use strict;

        '__DATA__',@ary;}}
         reverse( @ary ),
          STDERR
             print
               $,=$/;
                 ;{local
         $_}        <DATA>
        map         {chomp;
         {my        @ary=
           use strict;

#!/usr/bin/perl -w