sub tadman 
{ 
  my ($first, $second, $third) = @_; 
  my $index = $first * 16 + $second * 4 + $third; 
  my @key = split /|/, 'KnKttiIMRsROhOppllrr y ssLfL cWEdEaauujj'; 
  ( map { ord > 0130 ? uc : (), uc } @key )[ $index ]; 
}