#!/usr/bin/perl -w                    # there can be only one

                                 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

