$d=           
                                                   '~~_!~s*g!          
                                              ~m1f!~h      .b          
                                          )f!~d-           g*e         
                                      !~`-k*               e!~         
                                  ,q*d!                     z,u        
                              +c!w,                         _.n+       
                           c!u?g   +c!r.c+                  c-c,       
                         b!n,g+])f,a+b!l*^+c*a*g+           _,a!       
                      k)_)]1d       *a-^       *],a!k       )]*c1      
                  a0])`           .a!k ,^          ?c*a,     a!jK      
                `)]  0a!j       N],     ^)]           *`!j   Qa)]*     
               `!   hA _9^-`!g@a-        ]4]     +a!e:]  ,c, _7b!d     
               :^ +e*       a6b!c:_*b0     `5b!c+];a *]    /^6a!b+     
               ]5],f  0]6a!a+^.]-],e2]6`!a*_-]       .],     e0`5`     
              !`)`-^.],f/`5`!`(a-^)]+^*h,b5`!g+^)^    +w 5a!g+^(_,     
              e-f5b!h)c-e+g/]+c!h)c/o1]*e!i(c+^.c6_)f !q)`+  ^3 `,`    
              )g!w)n,o!~h*r!~~_';$p=q{lambda(p):''.join(     fi lte    
            r(lambda(q):not(q.isspace(   )),p))};$x=q{lambd  a(p),q    
           ,x,d,t:((lambda(b),z:"".j     oin([[ z[min(len(eva l(p)     
         (b[0:i+1])),len(z)) -1],b       [i]][   b[i].isspace()]f      
        or(i)in(range(len(b  )))]         ))(     "".join([[chr(1      
       0),"x"*(ord(i)-39),   chr      (32)*(ord    (i)-92)][int((      
       ord( i)+13)/53)]for(i)in(     eva l(p)(d))  ]),eval(p)("$d=     
      '%s' ;$p=q{%s};$x=q {%s};          $q=q{%s}; $q=~s/[\s]//gs;     
     eval  ''.($q) x(1);" %(d,p         ,q,x))))};$ q=q{$t='"'x(3);    
     @b=   ("prin t(lambd a(p),         q,z,zz,x,    d:eval(eval(p)    
    (q    ))(p,q  ,x,d,'$ t'))(          ($t$p$t)    ,($t$x$t),$t$q    
    $     t,($t$  x$ t),$  t$q            $t,$t      $d$t)"=~/\S/gs    
           );ma  p{  prin                           t(($i=ord)<39?     
           chr(  1   0):$i         <92?ch          r(32)x($i-39):      
            sp       lice(@         b,0,           $i-92)); }("$       
            d!       "=~/\S/g                   s);#print( lam         
             b       da(z  ):"Z"+z       [1:3])("Lunatic   ++          
                     ")    };$q  =~s/[\s]//gs    ;eval    ''           
                           .(                  $q)x(                   
                                              1);