f(e(    ));sub a{%cp=
(''.    '131',[8,3 ],
'1'.    '30',
[2],    '12'.
'2',    [21],'129',[
15,              11,
23],             ''.
'1'.    '19',[9,18],

'1'.  '16',    [10,22,14],    '125', [6],'1'.    '26', [7],'1'.    '23', [16],
'2'.  '5',[    25],           '95',     [13],    '61',             [24],
'114',[20],    '47',[4,17     ,12],'112',[19,    5],''             .'132',[1],
      '89',    [0]            )  ;       %cp;    }sub                      b {
      15;}     sub c{ $e=     $_[0]      -15;    $e;}                    sub d
      {chr                                                        ($_[0]);}sub
      e {
%cp = a();

   @cs=();foreach(keys %cp){my$av=c($_);my$cv=d($av);foreach(@{$cp{$av+15}}){
   $cs[$_]=$cv;}}return@cs;}sub f {print join( "", @_ );print "\n";}