#!/usr/bin/perl 
$_ ######################################## 
='$'.####       | |\  |   /|\            ####
 'p=su'.####    | | | |/|  |               ####
  'b{(1x'.####  | | |   |  |                 ####
   '++$,)!'.####                               ####
    '~ m,^(1'.####     |\  |  |\/ |  |\/| |\     ####
     '1+)\1+$,'.####   |\ -|- |\/ |> |  | |/       ####
      '?$,: &$p}'.#### |   |  |   |  |  | |\         ####
       ';$_="tr]kd'.####                               ####
        'pLn x[in__f'.####     |\/ |\/| |\ |\            ####
         'fcx_rl|rI" ;'.####   |   |  | |/ |               ####
          'while($\=chop'.#### |/\ |  | |\ |                 ####
           '){ $\=chr(-$,+'.####                               ####
            '$p->() +ord${\}'.####     |  | |\ |   |    |\/| |\   ####
             ');$\=~s/~/./; pr'.####   |\\| |\ |\  |/\  |  | |/     ####

              'int "";chomp ($_='.#### |  | |  | \ |  \ |  | |\       ####
               'reverse)}#Kai';     ######################################## 
                s/ +|\n//g; eval;