@PC1=(58,50,42,34,26,18,10,2,
      60,52,44,36,28,20,12,4,
      62,54,46,38,30,22,14,6,
      64,56,48,40,32,24,16,8,
      57,49,41,33,25,17,9,1,
      59,51,43,35,27,19,11,3,
      61,53,45,37,29,21,13,5,
      63,55,47,39,31,23,15,7);

my @parr=('0','M','0','A','0','I','0','L');
for my $i(0..63){
  my $tmp2 = ($PC1[$i])%8;
  my $tmp1 = ($PC1[$i]-$tmp2)/8;
  printf $parr[$tmp1]."\n";
}