File: BatchTest

<?php
# include "includes" file
if(file_exists("KDoubleMetaPhone.class.php")) {
   require_once("KDoubleMetaPhone.class.php");
}
else {
      echo("Sorry, unable to locate required file: KDoubleMetaPhone.class.php");
}

/** monitor dictionary processing time **/
$time = microtime();
$time = explode(' ', $time);
$time = $time[1] + $time[0];
$start = $time;

$kdm = isset($_POST['kdmp']) ? $_POST['kdmp'] : "Kirk";

if($_POST['kdmp']) {
   echo '<h2>'. $kdmp.' yields '.$kdmp->Primary.' and '.$kdmp->Secondary.'</h2>';
}

$kdmp = new KDoubleMetaPhone($kdm);
if ($kdmp->Primary == "" || $kdmp->Secondary == "") {
  print "<br>=(," . $kdmp->Primary . "), (," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("ALLERTON");
if ($kdmp->Primary == "ALRT" || $kdmp->Secondary == "ALRT") {
  print "<br>ALLERTON=(ALRT," . $kdmp->Primary . "), (ALRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Acton");
if ($kdmp->Primary == "AKTN" || $kdmp->Secondary == "AKTN") {
  print "<br>Acton=(AKTN," . $kdmp->Primary . "), (AKTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Adams");
if ($kdmp->Primary == "ATMS" || $kdmp->Secondary == "ATMS") {
  print "<br>Adams=(ATMS," . $kdmp->Primary . "), (ATMS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Aggar");
if ($kdmp->Primary == "AKR" || $kdmp->Secondary == "AKR") {
  print "<br>Aggar=(AKR," . $kdmp->Primary . "), (AKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ahl");
if ($kdmp->Primary == "AL" || $kdmp->Secondary == "AL") {
  print "<br>Ahl=(AL," . $kdmp->Primary . "), (AL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Aiken");
if ($kdmp->Primary == "AKN" || $kdmp->Secondary == "AKN") {
  print "<br>Aiken=(AKN," . $kdmp->Primary . "), (AKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Alan");
if ($kdmp->Primary == "ALN" || $kdmp->Secondary == "ALN") {
  print "<br>Alan=(ALN," . $kdmp->Primary . "), (ALN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Alcock");
if ($kdmp->Primary == "ALKK" || $kdmp->Secondary == "ALKK") {
  print "<br>Alcock=(ALKK," . $kdmp->Primary . "), (ALKK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Alden");
if ($kdmp->Primary == "ALTN" || $kdmp->Secondary == "ALTN") {
  print "<br>Alden=(ALTN," . $kdmp->Primary . "), (ALTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Aldham");
if ($kdmp->Primary == "ALTM" || $kdmp->Secondary == "ALTM") {
  print "<br>Aldham=(ALTM," . $kdmp->Primary . "), (ALTM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Allen");
if ($kdmp->Primary == "ALN" || $kdmp->Secondary == "ALN") {
  print "<br>Allen=(ALN," . $kdmp->Primary . "), (ALN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Allerton");
if ($kdmp->Primary == "ALRT" || $kdmp->Secondary == "ALRT") {
  print "<br>Allerton=(ALRT," . $kdmp->Primary . "), (ALRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Alsop");
if ($kdmp->Primary == "ALSP" || $kdmp->Secondary == "ALSP") {
  print "<br>Alsop=(ALSP," . $kdmp->Primary . "), (ALSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Alwein");
if ($kdmp->Primary == "ALN" || $kdmp->Secondary == "ALN") {
  print "<br>Alwein=(ALN," . $kdmp->Primary . "), (ALN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ambler");
if ($kdmp->Primary == "AMPL" || $kdmp->Secondary == "AMPL") {
  print "<br>Ambler=(AMPL," . $kdmp->Primary . "), (AMPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Andevill");
if ($kdmp->Primary == "ANTF" || $kdmp->Secondary == "ANTF") {
  print "<br>Andevill=(ANTF," . $kdmp->Primary . "), (ANTF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Andrews");
if ($kdmp->Primary == "ANTR" || $kdmp->Secondary == "ANTR") {
  print "<br>Andrews=(ANTR," . $kdmp->Primary . "), (ANTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Andreyco");
if ($kdmp->Primary == "ANTR" || $kdmp->Secondary == "ANTR") {
  print "<br>Andreyco=(ANTR," . $kdmp->Primary . "), (ANTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Andriesse");
if ($kdmp->Primary == "ANTR" || $kdmp->Secondary == "ANTR") {
  print "<br>Andriesse=(ANTR," . $kdmp->Primary . "), (ANTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Angier");
if ($kdmp->Primary == "ANJ" || $kdmp->Secondary == "ANJR") {
  print "<br>Angier=(ANJ," . $kdmp->Primary . "), (ANJR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Annabel");
if ($kdmp->Primary == "ANPL" || $kdmp->Secondary == "ANPL") {
  print "<br>Annabel=(ANPL," . $kdmp->Primary . "), (ANPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Anne");
if ($kdmp->Primary == "AN" || $kdmp->Secondary == "AN") {
  print "<br>Anne=(AN," . $kdmp->Primary . "), (AN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Anstye");
if ($kdmp->Primary == "ANST" || $kdmp->Secondary == "ANST") {
  print "<br>Anstye=(ANST," . $kdmp->Primary . "), (ANST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Appling");
if ($kdmp->Primary == "APLN" || $kdmp->Secondary == "APLN") {
  print "<br>Appling=(APLN," . $kdmp->Primary . "), (APLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Apuke");
if ($kdmp->Primary == "APK" || $kdmp->Secondary == "APK") {
  print "<br>Apuke=(APK," . $kdmp->Primary . "), (APK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Arnold");
if ($kdmp->Primary == "ARNL" || $kdmp->Secondary == "ARNL") {
  print "<br>Arnold=(ARNL," . $kdmp->Primary . "), (ARNL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ashby");
if ($kdmp->Primary == "AXP" || $kdmp->Secondary == "AXP") {
  print "<br>Ashby=(AXP," . $kdmp->Primary . "), (AXP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Astwood");
if ($kdmp->Primary == "ASTT" || $kdmp->Secondary == "ASTT") {
  print "<br>Astwood=(ASTT," . $kdmp->Primary . "), (ASTT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Atkinson");
if ($kdmp->Primary == "ATKN" || $kdmp->Secondary == "ATKN") {
  print "<br>Atkinson=(ATKN," . $kdmp->Primary . "), (ATKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Audley");
if ($kdmp->Primary == "ATL" || $kdmp->Secondary == "ATL") {
  print "<br>Audley=(ATL," . $kdmp->Primary . "), (ATL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Austin");
if ($kdmp->Primary == "ASTN" || $kdmp->Secondary == "ASTN") {
  print "<br>Austin=(ASTN," . $kdmp->Primary . "), (ASTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Avenal");
if ($kdmp->Primary == "AFNL" || $kdmp->Secondary == "AFNL") {
  print "<br>Avenal=(AFNL," . $kdmp->Primary . "), (AFNL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ayer");
if ($kdmp->Primary == "AR" || $kdmp->Secondary == "AR") {
  print "<br>Ayer=(AR," . $kdmp->Primary . "), (AR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ayot");
if ($kdmp->Primary == "AT" || $kdmp->Secondary == "AT") {
  print "<br>Ayot=(AT," . $kdmp->Primary . "), (AT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Babbitt");
if ($kdmp->Primary == "PPT" || $kdmp->Secondary == "PPT") {
  print "<br>Babbitt=(PPT," . $kdmp->Primary . "), (PPT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bachelor");
if ($kdmp->Primary == "PXLR" || $kdmp->Secondary == "PKLR") {
  print "<br>Bachelor=(PXLR," . $kdmp->Primary . "), (PKLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bachelour");
if ($kdmp->Primary == "PXLR" || $kdmp->Secondary == "PKLR") {
  print "<br>Bachelour=(PXLR," . $kdmp->Primary . "), (PKLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bailey");
if ($kdmp->Primary == "PL" || $kdmp->Secondary == "PL") {
  print "<br>Bailey=(PL," . $kdmp->Primary . "), (PL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Baivel");
if ($kdmp->Primary == "PFL" || $kdmp->Secondary == "PFL") {
  print "<br>Baivel=(PFL," . $kdmp->Primary . "), (PFL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Baker");
if ($kdmp->Primary == "PKR" || $kdmp->Secondary == "PKR") {
  print "<br>Baker=(PKR," . $kdmp->Primary . "), (PKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Baldwin");
if ($kdmp->Primary == "PLTN" || $kdmp->Secondary == "PLTN") {
  print "<br>Baldwin=(PLTN," . $kdmp->Primary . "), (PLTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Balsley");
if ($kdmp->Primary == "PLSL" || $kdmp->Secondary == "PLSL") {
  print "<br>Balsley=(PLSL," . $kdmp->Primary . "), (PLSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Barber");
if ($kdmp->Primary == "PRPR" || $kdmp->Secondary == "PRPR") {
  print "<br>Barber=(PRPR," . $kdmp->Primary . "), (PRPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Barker");
if ($kdmp->Primary == "PRKR" || $kdmp->Secondary == "PRKR") {
  print "<br>Barker=(PRKR," . $kdmp->Primary . "), (PRKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Barlow");
if ($kdmp->Primary == "PRL" || $kdmp->Secondary == "PRLF") {
  print "<br>Barlow=(PRL," . $kdmp->Primary . "), (PRLF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Barnard");
if ($kdmp->Primary == "PRNR" || $kdmp->Secondary == "PRNR") {
  print "<br>Barnard=(PRNR," . $kdmp->Primary . "), (PRNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Barnes");
if ($kdmp->Primary == "PRNS" || $kdmp->Secondary == "PRNS") {
  print "<br>Barnes=(PRNS," . $kdmp->Primary . "), (PRNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Barnsley");
if ($kdmp->Primary == "PRNS" || $kdmp->Secondary == "PRNS") {
  print "<br>Barnsley=(PRNS," . $kdmp->Primary . "), (PRNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Barouxis");
if ($kdmp->Primary == "PRKS" || $kdmp->Secondary == "PRKS") {
  print "<br>Barouxis=(PRKS," . $kdmp->Primary . "), (PRKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bartlet");
if ($kdmp->Primary == "PRTL" || $kdmp->Secondary == "PRTL") {
  print "<br>Bartlet=(PRTL," . $kdmp->Primary . "), (PRTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Basley");
if ($kdmp->Primary == "PSL" || $kdmp->Secondary == "PSL") {
  print "<br>Basley=(PSL," . $kdmp->Primary . "), (PSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Basset");
if ($kdmp->Primary == "PST" || $kdmp->Secondary == "PST") {
  print "<br>Basset=(PST," . $kdmp->Primary . "), (PST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bassett");
if ($kdmp->Primary == "PST" || $kdmp->Secondary == "PST") {
  print "<br>Bassett=(PST," . $kdmp->Primary . "), (PST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Batchlor");
if ($kdmp->Primary == "PXLR" || $kdmp->Secondary == "PXLR") {
  print "<br>Batchlor=(PXLR," . $kdmp->Primary . "), (PXLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bates");
if ($kdmp->Primary == "PTS" || $kdmp->Secondary == "PTS") {
  print "<br>Bates=(PTS," . $kdmp->Primary . "), (PTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Batson");
if ($kdmp->Primary == "PTSN" || $kdmp->Secondary == "PTSN") {
  print "<br>Batson=(PTSN," . $kdmp->Primary . "), (PTSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bayes");
if ($kdmp->Primary == "PS" || $kdmp->Secondary == "PS") {
  print "<br>Bayes=(PS," . $kdmp->Primary . "), (PS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bayley");
if ($kdmp->Primary == "PL" || $kdmp->Secondary == "PL") {
  print "<br>Bayley=(PL," . $kdmp->Primary . "), (PL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Beale");
if ($kdmp->Primary == "PL" || $kdmp->Secondary == "PL") {
  print "<br>Beale=(PL," . $kdmp->Primary . "), (PL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Beauchamp");
if ($kdmp->Primary == "PXMP" || $kdmp->Secondary == "PKMP") {
  print "<br>Beauchamp=(PXMP," . $kdmp->Primary . "), (PKMP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Beauclerc");
if ($kdmp->Primary == "PKLR" || $kdmp->Secondary == "PKLR") {
  print "<br>Beauclerc=(PKLR," . $kdmp->Primary . "), (PKLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Beech");
if ($kdmp->Primary == "PK" || $kdmp->Secondary == "PK") {
  print "<br>Beech=(PK," . $kdmp->Primary . "), (PK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Beers");
if ($kdmp->Primary == "PRS" || $kdmp->Secondary == "PRS") {
  print "<br>Beers=(PRS," . $kdmp->Primary . "), (PRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Beke");
if ($kdmp->Primary == "PK" || $kdmp->Secondary == "PK") {
  print "<br>Beke=(PK," . $kdmp->Primary . "), (PK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Belcher");
if ($kdmp->Primary == "PLXR" || $kdmp->Secondary == "PLKR") {
  print "<br>Belcher=(PLXR," . $kdmp->Primary . "), (PLKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Benjamin");
if ($kdmp->Primary == "PNJM" || $kdmp->Secondary == "PNJM") {
  print "<br>Benjamin=(PNJM," . $kdmp->Primary . "), (PNJM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Benningham");
if ($kdmp->Primary == "PNNK" || $kdmp->Secondary == "PNNK") {
  print "<br>Benningham=(PNNK," . $kdmp->Primary . "), (PNNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bereford");
if ($kdmp->Primary == "PRFR" || $kdmp->Secondary == "PRFR") {
  print "<br>Bereford=(PRFR," . $kdmp->Primary . "), (PRFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bergen");
if ($kdmp->Primary == "PRJN" || $kdmp->Secondary == "PRKN") {
  print "<br>Bergen=(PRJN," . $kdmp->Primary . "), (PRKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Berkeley");
if ($kdmp->Primary == "PRKL" || $kdmp->Secondary == "PRKL") {
  print "<br>Berkeley=(PRKL," . $kdmp->Primary . "), (PRKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Berry");
if ($kdmp->Primary == "PR" || $kdmp->Secondary == "PR") {
  print "<br>Berry=(PR," . $kdmp->Primary . "), (PR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Besse");
if ($kdmp->Primary == "PS" || $kdmp->Secondary == "PS") {
  print "<br>Besse=(PS," . $kdmp->Primary . "), (PS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bessey");
if ($kdmp->Primary == "PS" || $kdmp->Secondary == "PS") {
  print "<br>Bessey=(PS," . $kdmp->Primary . "), (PS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bessiles");
if ($kdmp->Primary == "PSLS" || $kdmp->Secondary == "PSLS") {
  print "<br>Bessiles=(PSLS," . $kdmp->Primary . "), (PSLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bigelow");
if ($kdmp->Primary == "PJL" || $kdmp->Secondary == "PKLF") {
  print "<br>Bigelow=(PJL," . $kdmp->Primary . "), (PKLF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bigg");
if ($kdmp->Primary == "PK" || $kdmp->Secondary == "PK") {
  print "<br>Bigg=(PK," . $kdmp->Primary . "), (PK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bigod");
if ($kdmp->Primary == "PKT" || $kdmp->Secondary == "PKT") {
  print "<br>Bigod=(PKT," . $kdmp->Primary . "), (PKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Billings");
if ($kdmp->Primary == "PLNK" || $kdmp->Secondary == "PLNK") {
  print "<br>Billings=(PLNK," . $kdmp->Primary . "), (PLNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bimper");
if ($kdmp->Primary == "PMPR" || $kdmp->Secondary == "PMPR") {
  print "<br>Bimper=(PMPR," . $kdmp->Primary . "), (PMPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Binker");
if ($kdmp->Primary == "PNKR" || $kdmp->Secondary == "PNKR") {
  print "<br>Binker=(PNKR," . $kdmp->Primary . "), (PNKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Birdsill");
if ($kdmp->Primary == "PRTS" || $kdmp->Secondary == "PRTS") {
  print "<br>Birdsill=(PRTS," . $kdmp->Primary . "), (PRTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bishop");
if ($kdmp->Primary == "PXP" || $kdmp->Secondary == "PXP") {
  print "<br>Bishop=(PXP," . $kdmp->Primary . "), (PXP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Black");
if ($kdmp->Primary == "PLK" || $kdmp->Secondary == "PLK") {
  print "<br>Black=(PLK," . $kdmp->Primary . "), (PLK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Blagge");
if ($kdmp->Primary == "PLK" || $kdmp->Secondary == "PLK") {
  print "<br>Blagge=(PLK," . $kdmp->Primary . "), (PLK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Blake");
if ($kdmp->Primary == "PLK" || $kdmp->Secondary == "PLK") {
  print "<br>Blake=(PLK," . $kdmp->Primary . "), (PLK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Blanck");
if ($kdmp->Primary == "PLNK" || $kdmp->Secondary == "PLNK") {
  print "<br>Blanck=(PLNK," . $kdmp->Primary . "), (PLNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bledsoe");
if ($kdmp->Primary == "PLTS" || $kdmp->Secondary == "PLTS") {
  print "<br>Bledsoe=(PLTS," . $kdmp->Primary . "), (PLTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Blennerhasset");
if ($kdmp->Primary == "PLNR" || $kdmp->Secondary == "PLNR") {
  print "<br>Blennerhasset=(PLNR," . $kdmp->Primary . "), (PLNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Blessing");
if ($kdmp->Primary == "PLSN" || $kdmp->Secondary == "PLSN") {
  print "<br>Blessing=(PLSN," . $kdmp->Primary . "), (PLSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Blewett");
if ($kdmp->Primary == "PLT" || $kdmp->Secondary == "PLT") {
  print "<br>Blewett=(PLT," . $kdmp->Primary . "), (PLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bloctgoed");
if ($kdmp->Primary == "PLKT" || $kdmp->Secondary == "PLKT") {
  print "<br>Bloctgoed=(PLKT," . $kdmp->Primary . "), (PLKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bloetgoet");
if ($kdmp->Primary == "PLTK" || $kdmp->Secondary == "PLTK") {
  print "<br>Bloetgoet=(PLTK," . $kdmp->Primary . "), (PLTK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bloodgood");
if ($kdmp->Primary == "PLTK" || $kdmp->Secondary == "PLTK") {
  print "<br>Bloodgood=(PLTK," . $kdmp->Primary . "), (PLTK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Blossom");
if ($kdmp->Primary == "PLSM" || $kdmp->Secondary == "PLSM") {
  print "<br>Blossom=(PLSM," . $kdmp->Primary . "), (PLSM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Blount");
if ($kdmp->Primary == "PLNT" || $kdmp->Secondary == "PLNT") {
  print "<br>Blount=(PLNT," . $kdmp->Primary . "), (PLNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bodine");
if ($kdmp->Primary == "PTN" || $kdmp->Secondary == "PTN") {
  print "<br>Bodine=(PTN," . $kdmp->Primary . "), (PTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bodman");
if ($kdmp->Primary == "PTMN" || $kdmp->Secondary == "PTMN") {
  print "<br>Bodman=(PTMN," . $kdmp->Primary . "), (PTMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("BonCoeur");
if ($kdmp->Primary == "PNKR" || $kdmp->Secondary == "PNKR") {
  print "<br>BonCoeur=(PNKR," . $kdmp->Primary . "), (PNKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bond");
if ($kdmp->Primary == "PNT" || $kdmp->Secondary == "PNT") {
  print "<br>Bond=(PNT," . $kdmp->Primary . "), (PNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Boscawen");
if ($kdmp->Primary == "PSKN" || $kdmp->Secondary == "PSKN") {
  print "<br>Boscawen=(PSKN," . $kdmp->Primary . "), (PSKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bosworth");
if ($kdmp->Primary == "PSR0" || $kdmp->Secondary == "PSRT") {
  print "<br>Bosworth=(PSR0," . $kdmp->Primary . "), (PSRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bouchier");
if ($kdmp->Primary == "PX" || $kdmp->Secondary == "PKR") {
  print "<br>Bouchier=(PX," . $kdmp->Primary . "), (PKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bowne");
if ($kdmp->Primary == "PN" || $kdmp->Secondary == "PN") {
  print "<br>Bowne=(PN," . $kdmp->Primary . "), (PN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bradbury");
if ($kdmp->Primary == "PRTP" || $kdmp->Secondary == "PRTP") {
  print "<br>Bradbury=(PRTP," . $kdmp->Primary . "), (PRTP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bradder");
if ($kdmp->Primary == "PRTR" || $kdmp->Secondary == "PRTR") {
  print "<br>Bradder=(PRTR," . $kdmp->Primary . "), (PRTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bradford");
if ($kdmp->Primary == "PRTF" || $kdmp->Secondary == "PRTF") {
  print "<br>Bradford=(PRTF," . $kdmp->Primary . "), (PRTF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bradstreet");
if ($kdmp->Primary == "PRTS" || $kdmp->Secondary == "PRTS") {
  print "<br>Bradstreet=(PRTS," . $kdmp->Primary . "), (PRTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Braham");
if ($kdmp->Primary == "PRHM" || $kdmp->Secondary == "PRHM") {
  print "<br>Braham=(PRHM," . $kdmp->Primary . "), (PRHM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brailsford");
if ($kdmp->Primary == "PRLS" || $kdmp->Secondary == "PRLS") {
  print "<br>Brailsford=(PRLS," . $kdmp->Primary . "), (PRLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brainard");
if ($kdmp->Primary == "PRNR" || $kdmp->Secondary == "PRNR") {
  print "<br>Brainard=(PRNR," . $kdmp->Primary . "), (PRNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brandish");
if ($kdmp->Primary == "PRNT" || $kdmp->Secondary == "PRNT") {
  print "<br>Brandish=(PRNT," . $kdmp->Primary . "), (PRNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Braun");
if ($kdmp->Primary == "PRN" || $kdmp->Secondary == "PRN") {
  print "<br>Braun=(PRN," . $kdmp->Primary . "), (PRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brecc");
if ($kdmp->Primary == "PRK" || $kdmp->Secondary == "PRK") {
  print "<br>Brecc=(PRK," . $kdmp->Primary . "), (PRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brent");
if ($kdmp->Primary == "PRNT" || $kdmp->Secondary == "PRNT") {
  print "<br>Brent=(PRNT," . $kdmp->Primary . "), (PRNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brenton");
if ($kdmp->Primary == "PRNT" || $kdmp->Secondary == "PRNT") {
  print "<br>Brenton=(PRNT," . $kdmp->Primary . "), (PRNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Briggs");
if ($kdmp->Primary == "PRKS" || $kdmp->Secondary == "PRKS") {
  print "<br>Briggs=(PRKS," . $kdmp->Primary . "), (PRKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brigham");
if ($kdmp->Primary == "PRM" || $kdmp->Secondary == "PRM") {
  print "<br>Brigham=(PRM," . $kdmp->Primary . "), (PRM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brobst");
if ($kdmp->Primary == "PRPS" || $kdmp->Secondary == "PRPS") {
  print "<br>Brobst=(PRPS," . $kdmp->Primary . "), (PRPS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brome");
if ($kdmp->Primary == "PRM" || $kdmp->Secondary == "PRM") {
  print "<br>Brome=(PRM," . $kdmp->Primary . "), (PRM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bronson");
if ($kdmp->Primary == "PRNS" || $kdmp->Secondary == "PRNS") {
  print "<br>Bronson=(PRNS," . $kdmp->Primary . "), (PRNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brooks");
if ($kdmp->Primary == "PRKS" || $kdmp->Secondary == "PRKS") {
  print "<br>Brooks=(PRKS," . $kdmp->Primary . "), (PRKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brouillard");
if ($kdmp->Primary == "PRLR" || $kdmp->Secondary == "PRLR") {
  print "<br>Brouillard=(PRLR," . $kdmp->Primary . "), (PRLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brown");
if ($kdmp->Primary == "PRN" || $kdmp->Secondary == "PRN") {
  print "<br>Brown=(PRN," . $kdmp->Primary . "), (PRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Browne");
if ($kdmp->Primary == "PRN" || $kdmp->Secondary == "PRN") {
  print "<br>Browne=(PRN," . $kdmp->Primary . "), (PRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brownell");
if ($kdmp->Primary == "PRNL" || $kdmp->Secondary == "PRNL") {
  print "<br>Brownell=(PRNL," . $kdmp->Primary . "), (PRNL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bruley");
if ($kdmp->Primary == "PRL" || $kdmp->Secondary == "PRL") {
  print "<br>Bruley=(PRL," . $kdmp->Primary . "), (PRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bryant");
if ($kdmp->Primary == "PRNT" || $kdmp->Secondary == "PRNT") {
  print "<br>Bryant=(PRNT," . $kdmp->Primary . "), (PRNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Brzozowski");
if ($kdmp->Primary == "PRSS" || $kdmp->Secondary == "PRTS") {
  print "<br>Brzozowski=(PRSS," . $kdmp->Primary . "), (PRTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Buide");
if ($kdmp->Primary == "PT" || $kdmp->Secondary == "PT") {
  print "<br>Buide=(PT," . $kdmp->Primary . "), (PT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bulmer");
if ($kdmp->Primary == "PLMR" || $kdmp->Secondary == "PLMR") {
  print "<br>Bulmer=(PLMR," . $kdmp->Primary . "), (PLMR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bunker");
if ($kdmp->Primary == "PNKR" || $kdmp->Secondary == "PNKR") {
  print "<br>Bunker=(PNKR," . $kdmp->Primary . "), (PNKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Burden");
if ($kdmp->Primary == "PRTN" || $kdmp->Secondary == "PRTN") {
  print "<br>Burden=(PRTN," . $kdmp->Primary . "), (PRTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Burge");
if ($kdmp->Primary == "PRJ" || $kdmp->Secondary == "PRK") {
  print "<br>Burge=(PRJ," . $kdmp->Primary . "), (PRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Burgoyne");
if ($kdmp->Primary == "PRKN" || $kdmp->Secondary == "PRKN") {
  print "<br>Burgoyne=(PRKN," . $kdmp->Primary . "), (PRKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Burke");
if ($kdmp->Primary == "PRK" || $kdmp->Secondary == "PRK") {
  print "<br>Burke=(PRK," . $kdmp->Primary . "), (PRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Burnett");
if ($kdmp->Primary == "PRNT" || $kdmp->Secondary == "PRNT") {
  print "<br>Burnett=(PRNT," . $kdmp->Primary . "), (PRNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Burpee");
if ($kdmp->Primary == "PRP" || $kdmp->Secondary == "PRP") {
  print "<br>Burpee=(PRP," . $kdmp->Primary . "), (PRP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bursley");
if ($kdmp->Primary == "PRSL" || $kdmp->Secondary == "PRSL") {
  print "<br>Bursley=(PRSL," . $kdmp->Primary . "), (PRSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Burton");
if ($kdmp->Primary == "PRTN" || $kdmp->Secondary == "PRTN") {
  print "<br>Burton=(PRTN," . $kdmp->Primary . "), (PRTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Bushnell");
if ($kdmp->Primary == "PXNL" || $kdmp->Secondary == "PXNL") {
  print "<br>Bushnell=(PXNL," . $kdmp->Primary . "), (PXNL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Buss");
if ($kdmp->Primary == "PS" || $kdmp->Secondary == "PS") {
  print "<br>Buss=(PS," . $kdmp->Primary . "), (PS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Buswell");
if ($kdmp->Primary == "PSL" || $kdmp->Secondary == "PSL") {
  print "<br>Buswell=(PSL," . $kdmp->Primary . "), (PSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Butler");
if ($kdmp->Primary == "PTLR" || $kdmp->Secondary == "PTLR") {
  print "<br>Butler=(PTLR," . $kdmp->Primary . "), (PTLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Calkin");
if ($kdmp->Primary == "KLKN" || $kdmp->Secondary == "KLKN") {
  print "<br>Calkin=(KLKN," . $kdmp->Primary . "), (KLKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Canada");
if ($kdmp->Primary == "KNT" || $kdmp->Secondary == "KNT") {
  print "<br>Canada=(KNT," . $kdmp->Primary . "), (KNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Canmore");
if ($kdmp->Primary == "KNMR" || $kdmp->Secondary == "KNMR") {
  print "<br>Canmore=(KNMR," . $kdmp->Primary . "), (KNMR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Canney");
if ($kdmp->Primary == "KN" || $kdmp->Secondary == "KN") {
  print "<br>Canney=(KN," . $kdmp->Primary . "), (KN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Capet");
if ($kdmp->Primary == "KPT" || $kdmp->Secondary == "KPT") {
  print "<br>Capet=(KPT," . $kdmp->Primary . "), (KPT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Card");
if ($kdmp->Primary == "KRT" || $kdmp->Secondary == "KRT") {
  print "<br>Card=(KRT," . $kdmp->Primary . "), (KRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Carman");
if ($kdmp->Primary == "KRMN" || $kdmp->Secondary == "KRMN") {
  print "<br>Carman=(KRMN," . $kdmp->Primary . "), (KRMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Carpenter");
if ($kdmp->Primary == "KRPN" || $kdmp->Secondary == "KRPN") {
  print "<br>Carpenter=(KRPN," . $kdmp->Primary . "), (KRPN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cartwright");
if ($kdmp->Primary == "KRTR" || $kdmp->Secondary == "KRTR") {
  print "<br>Cartwright=(KRTR," . $kdmp->Primary . "), (KRTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Casey");
if ($kdmp->Primary == "KS" || $kdmp->Secondary == "KS") {
  print "<br>Casey=(KS," . $kdmp->Primary . "), (KS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Catterfield");
if ($kdmp->Primary == "KTRF" || $kdmp->Secondary == "KTRF") {
  print "<br>Catterfield=(KTRF," . $kdmp->Primary . "), (KTRF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ceeley");
if ($kdmp->Primary == "SL" || $kdmp->Secondary == "SL") {
  print "<br>Ceeley=(SL," . $kdmp->Primary . "), (SL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Chambers");
if ($kdmp->Primary == "XMPR" || $kdmp->Secondary == "XMPR") {
  print "<br>Chambers=(XMPR," . $kdmp->Primary . "), (XMPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Champion");
if ($kdmp->Primary == "XMPN" || $kdmp->Secondary == "XMPN") {
  print "<br>Champion=(XMPN," . $kdmp->Primary . "), (XMPN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Chapman");
if ($kdmp->Primary == "XPMN" || $kdmp->Secondary == "XPMN") {
  print "<br>Chapman=(XPMN," . $kdmp->Primary . "), (XPMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Chase");
if ($kdmp->Primary == "XS" || $kdmp->Secondary == "XS") {
  print "<br>Chase=(XS," . $kdmp->Primary . "), (XS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cheney");
if ($kdmp->Primary == "XN" || $kdmp->Secondary == "XN") {
  print "<br>Cheney=(XN," . $kdmp->Primary . "), (XN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Chetwynd");
if ($kdmp->Primary == "XTNT" || $kdmp->Secondary == "XTNT") {
  print "<br>Chetwynd=(XTNT," . $kdmp->Primary . "), (XTNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Chevalier");
if ($kdmp->Primary == "XFL" || $kdmp->Secondary == "XFLR") {
  print "<br>Chevalier=(XFL," . $kdmp->Primary . "), (XFLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Chillingsworth");
if ($kdmp->Primary == "XLNK" || $kdmp->Secondary == "XLNK") {
  print "<br>Chillingsworth=(XLNK," . $kdmp->Primary . "), (XLNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Christie");
if ($kdmp->Primary == "KRST" || $kdmp->Secondary == "KRST") {
  print "<br>Christie=(KRST," . $kdmp->Primary . "), (KRST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Chubbuck");
if ($kdmp->Primary == "XPK" || $kdmp->Secondary == "XPK") {
  print "<br>Chubbuck=(XPK," . $kdmp->Primary . "), (XPK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Church");
if ($kdmp->Primary == "XRX" || $kdmp->Secondary == "XRK") {
  print "<br>Church=(XRX," . $kdmp->Primary . "), (XRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Clark");
if ($kdmp->Primary == "KLRK" || $kdmp->Secondary == "KLRK") {
  print "<br>Clark=(KLRK," . $kdmp->Primary . "), (KLRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Clarke");
if ($kdmp->Primary == "KLRK" || $kdmp->Secondary == "KLRK") {
  print "<br>Clarke=(KLRK," . $kdmp->Primary . "), (KLRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cleare");
if ($kdmp->Primary == "KLR" || $kdmp->Secondary == "KLR") {
  print "<br>Cleare=(KLR," . $kdmp->Primary . "), (KLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Clement");
if ($kdmp->Primary == "KLMN" || $kdmp->Secondary == "KLMN") {
  print "<br>Clement=(KLMN," . $kdmp->Primary . "), (KLMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Clerke");
if ($kdmp->Primary == "KLRK" || $kdmp->Secondary == "KLRK") {
  print "<br>Clerke=(KLRK," . $kdmp->Primary . "), (KLRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Clibben");
if ($kdmp->Primary == "KLPN" || $kdmp->Secondary == "KLPN") {
  print "<br>Clibben=(KLPN," . $kdmp->Primary . "), (KLPN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Clifford");
if ($kdmp->Primary == "KLFR" || $kdmp->Secondary == "KLFR") {
  print "<br>Clifford=(KLFR," . $kdmp->Primary . "), (KLFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Clivedon");
if ($kdmp->Primary == "KLFT" || $kdmp->Secondary == "KLFT") {
  print "<br>Clivedon=(KLFT," . $kdmp->Primary . "), (KLFT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Close");
if ($kdmp->Primary == "KLS" || $kdmp->Secondary == "KLS") {
  print "<br>Close=(KLS," . $kdmp->Primary . "), (KLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Clothilde");
if ($kdmp->Primary == "KL0L" || $kdmp->Secondary == "KLTL") {
  print "<br>Clothilde=(KL0L," . $kdmp->Primary . "), (KLTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cobb");
if ($kdmp->Primary == "KP" || $kdmp->Secondary == "KP") {
  print "<br>Cobb=(KP," . $kdmp->Primary . "), (KP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Coburn");
if ($kdmp->Primary == "KPRN" || $kdmp->Secondary == "KPRN") {
  print "<br>Coburn=(KPRN," . $kdmp->Primary . "), (KPRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Coburne");
if ($kdmp->Primary == "KPRN" || $kdmp->Secondary == "KPRN") {
  print "<br>Coburne=(KPRN," . $kdmp->Primary . "), (KPRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cocke");
if ($kdmp->Primary == "KK" || $kdmp->Secondary == "KK") {
  print "<br>Cocke=(KK," . $kdmp->Primary . "), (KK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Coffin");
if ($kdmp->Primary == "KFN" || $kdmp->Secondary == "KFN") {
  print "<br>Coffin=(KFN," . $kdmp->Primary . "), (KFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Coffyn");
if ($kdmp->Primary == "KFN" || $kdmp->Secondary == "KFN") {
  print "<br>Coffyn=(KFN," . $kdmp->Primary . "), (KFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Colborne");
if ($kdmp->Primary == "KLPR" || $kdmp->Secondary == "KLPR") {
  print "<br>Colborne=(KLPR," . $kdmp->Primary . "), (KLPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Colby");
if ($kdmp->Primary == "KLP" || $kdmp->Secondary == "KLP") {
  print "<br>Colby=(KLP," . $kdmp->Primary . "), (KLP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cole");
if ($kdmp->Primary == "KL" || $kdmp->Secondary == "KL") {
  print "<br>Cole=(KL," . $kdmp->Primary . "), (KL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Coleman");
if ($kdmp->Primary == "KLMN" || $kdmp->Secondary == "KLMN") {
  print "<br>Coleman=(KLMN," . $kdmp->Primary . "), (KLMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Collier");
if ($kdmp->Primary == "KL" || $kdmp->Secondary == "KLR") {
  print "<br>Collier=(KL," . $kdmp->Primary . "), (KLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Compton");
if ($kdmp->Primary == "KMPT" || $kdmp->Secondary == "KMPT") {
  print "<br>Compton=(KMPT," . $kdmp->Primary . "), (KMPT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cone");
if ($kdmp->Primary == "KN" || $kdmp->Secondary == "KN") {
  print "<br>Cone=(KN," . $kdmp->Primary . "), (KN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cook");
if ($kdmp->Primary == "KK" || $kdmp->Secondary == "KK") {
  print "<br>Cook=(KK," . $kdmp->Primary . "), (KK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cooke");
if ($kdmp->Primary == "KK" || $kdmp->Secondary == "KK") {
  print "<br>Cooke=(KK," . $kdmp->Primary . "), (KK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cooper");
if ($kdmp->Primary == "KPR" || $kdmp->Secondary == "KPR") {
  print "<br>Cooper=(KPR," . $kdmp->Primary . "), (KPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Copperthwaite");
if ($kdmp->Primary == "KPR0" || $kdmp->Secondary == "KPRT") {
  print "<br>Copperthwaite=(KPR0," . $kdmp->Primary . "), (KPRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Corbet");
if ($kdmp->Primary == "KRPT" || $kdmp->Secondary == "KRPT") {
  print "<br>Corbet=(KRPT," . $kdmp->Primary . "), (KRPT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Corell");
if ($kdmp->Primary == "KRL" || $kdmp->Secondary == "KRL") {
  print "<br>Corell=(KRL," . $kdmp->Primary . "), (KRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Corey");
if ($kdmp->Primary == "KR" || $kdmp->Secondary == "KR") {
  print "<br>Corey=(KR," . $kdmp->Primary . "), (KR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Corlies");
if ($kdmp->Primary == "KRLS" || $kdmp->Secondary == "KRLS") {
  print "<br>Corlies=(KRLS," . $kdmp->Primary . "), (KRLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Corneliszen");
if ($kdmp->Primary == "KRNL" || $kdmp->Secondary == "KRNL") {
  print "<br>Corneliszen=(KRNL," . $kdmp->Primary . "), (KRNL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cornelius");
if ($kdmp->Primary == "KRNL" || $kdmp->Secondary == "KRNL") {
  print "<br>Cornelius=(KRNL," . $kdmp->Primary . "), (KRNL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cornwallis");
if ($kdmp->Primary == "KRNL" || $kdmp->Secondary == "KRNL") {
  print "<br>Cornwallis=(KRNL," . $kdmp->Primary . "), (KRNL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cosgrove");
if ($kdmp->Primary == "KSKR" || $kdmp->Secondary == "KSKR") {
  print "<br>Cosgrove=(KSKR," . $kdmp->Primary . "), (KSKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Count of Brionne");
if ($kdmp->Primary == "KNTF" || $kdmp->Secondary == "KNTF") {
  print "<br>Count of Brionne=(KNTF," . $kdmp->Primary . "), (KNTF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Covill");
if ($kdmp->Primary == "KFL" || $kdmp->Secondary == "KFL") {
  print "<br>Covill=(KFL," . $kdmp->Primary . "), (KFL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cowperthwaite");
if ($kdmp->Primary == "KPR0" || $kdmp->Secondary == "KPRT") {
  print "<br>Cowperthwaite=(KPR0," . $kdmp->Primary . "), (KPRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cowperwaite");
if ($kdmp->Primary == "KPRT" || $kdmp->Secondary == "KPRT") {
  print "<br>Cowperwaite=(KPRT," . $kdmp->Primary . "), (KPRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Crane");
if ($kdmp->Primary == "KRN" || $kdmp->Secondary == "KRN") {
  print "<br>Crane=(KRN," . $kdmp->Primary . "), (KRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Creagmile");
if ($kdmp->Primary == "KRKM" || $kdmp->Secondary == "KRKM") {
  print "<br>Creagmile=(KRKM," . $kdmp->Primary . "), (KRKM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Crew");
if ($kdmp->Primary == "KR" || $kdmp->Secondary == "KRF") {
  print "<br>Crew=(KR," . $kdmp->Primary . "), (KRF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Crispin");
if ($kdmp->Primary == "KRSP" || $kdmp->Secondary == "KRSP") {
  print "<br>Crispin=(KRSP," . $kdmp->Primary . "), (KRSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Crocker");
if ($kdmp->Primary == "KRKR" || $kdmp->Secondary == "KRKR") {
  print "<br>Crocker=(KRKR," . $kdmp->Primary . "), (KRKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Crockett");
if ($kdmp->Primary == "KRKT" || $kdmp->Secondary == "KRKT") {
  print "<br>Crockett=(KRKT," . $kdmp->Primary . "), (KRKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Crosby");
if ($kdmp->Primary == "KRSP" || $kdmp->Secondary == "KRSP") {
  print "<br>Crosby=(KRSP," . $kdmp->Primary . "), (KRSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Crump");
if ($kdmp->Primary == "KRMP" || $kdmp->Secondary == "KRMP") {
  print "<br>Crump=(KRMP," . $kdmp->Primary . "), (KRMP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cunningham");
if ($kdmp->Primary == "KNNK" || $kdmp->Secondary == "KNNK") {
  print "<br>Cunningham=(KNNK," . $kdmp->Primary . "), (KNNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Curtis");
if ($kdmp->Primary == "KRTS" || $kdmp->Secondary == "KRTS") {
  print "<br>Curtis=(KRTS," . $kdmp->Primary . "), (KRTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cutha");
if ($kdmp->Primary == "K0" || $kdmp->Secondary == "KT") {
  print "<br>Cutha=(K0," . $kdmp->Primary . "), (KT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Cutter");
if ($kdmp->Primary == "KTR" || $kdmp->Secondary == "KTR") {
  print "<br>Cutter=(KTR," . $kdmp->Primary . "), (KTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("D'Aubigny");
if ($kdmp->Primary == "TPN" || $kdmp->Secondary == "TPKN") {
  print "<br>D'Aubigny=(TPN," . $kdmp->Primary . "), (TPKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("DAVIS");
if ($kdmp->Primary == "TFS" || $kdmp->Secondary == "TFS") {
  print "<br>DAVIS=(TFS," . $kdmp->Primary . "), (TFS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dabinott");
if ($kdmp->Primary == "TPNT" || $kdmp->Secondary == "TPNT") {
  print "<br>Dabinott=(TPNT," . $kdmp->Primary . "), (TPNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dacre");
if ($kdmp->Primary == "TKR" || $kdmp->Secondary == "TKR") {
  print "<br>Dacre=(TKR," . $kdmp->Primary . "), (TKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Daggett");
if ($kdmp->Primary == "TKT" || $kdmp->Secondary == "TKT") {
  print "<br>Daggett=(TKT," . $kdmp->Primary . "), (TKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Danvers");
if ($kdmp->Primary == "TNFR" || $kdmp->Secondary == "TNFR") {
  print "<br>Danvers=(TNFR," . $kdmp->Primary . "), (TNFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Darcy");
if ($kdmp->Primary == "TRS" || $kdmp->Secondary == "TRS") {
  print "<br>Darcy=(TRS," . $kdmp->Primary . "), (TRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Davis");
if ($kdmp->Primary == "TFS" || $kdmp->Secondary == "TFS") {
  print "<br>Davis=(TFS," . $kdmp->Primary . "), (TFS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dawn");
if ($kdmp->Primary == "TN" || $kdmp->Secondary == "TN") {
  print "<br>Dawn=(TN," . $kdmp->Primary . "), (TN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dawson");
if ($kdmp->Primary == "TSN" || $kdmp->Secondary == "TSN") {
  print "<br>Dawson=(TSN," . $kdmp->Primary . "), (TSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Day");
if ($kdmp->Primary == "T" || $kdmp->Secondary == "T") {
  print "<br>Day=(T," . $kdmp->Primary . "), (T," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Daye");
if ($kdmp->Primary == "T" || $kdmp->Secondary == "T") {
  print "<br>Daye=(T," . $kdmp->Primary . "), (T," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("DeGrenier");
if ($kdmp->Primary == "TKRN" || $kdmp->Secondary == "TKRN") {
  print "<br>DeGrenier=(TKRN," . $kdmp->Primary . "), (TKRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dean");
if ($kdmp->Primary == "TN" || $kdmp->Secondary == "TN") {
  print "<br>Dean=(TN," . $kdmp->Primary . "), (TN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Deekindaugh");
if ($kdmp->Primary == "TKNT" || $kdmp->Secondary == "TKNT") {
  print "<br>Deekindaugh=(TKNT," . $kdmp->Primary . "), (TKNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dennis");
if ($kdmp->Primary == "TNS" || $kdmp->Secondary == "TNS") {
  print "<br>Dennis=(TNS," . $kdmp->Primary . "), (TNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Denny");
if ($kdmp->Primary == "TN" || $kdmp->Secondary == "TN") {
  print "<br>Denny=(TN," . $kdmp->Primary . "), (TN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Denton");
if ($kdmp->Primary == "TNTN" || $kdmp->Secondary == "TNTN") {
  print "<br>Denton=(TNTN," . $kdmp->Primary . "), (TNTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Desborough");
if ($kdmp->Primary == "TSPR" || $kdmp->Secondary == "TSPR") {
  print "<br>Desborough=(TSPR," . $kdmp->Primary . "), (TSPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Despenser");
if ($kdmp->Primary == "TSPN" || $kdmp->Secondary == "TSPN") {
  print "<br>Despenser=(TSPN," . $kdmp->Primary . "), (TSPN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Deverill");
if ($kdmp->Primary == "TFRL" || $kdmp->Secondary == "TFRL") {
  print "<br>Deverill=(TFRL," . $kdmp->Primary . "), (TFRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Devine");
if ($kdmp->Primary == "TFN" || $kdmp->Secondary == "TFN") {
  print "<br>Devine=(TFN," . $kdmp->Primary . "), (TFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dexter");
if ($kdmp->Primary == "TKST" || $kdmp->Secondary == "TKST") {
  print "<br>Dexter=(TKST," . $kdmp->Primary . "), (TKST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dillaway");
if ($kdmp->Primary == "TL" || $kdmp->Secondary == "TL") {
  print "<br>Dillaway=(TL," . $kdmp->Primary . "), (TL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dimmick");
if ($kdmp->Primary == "TMK" || $kdmp->Secondary == "TMK") {
  print "<br>Dimmick=(TMK," . $kdmp->Primary . "), (TMK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dinan");
if ($kdmp->Primary == "TNN" || $kdmp->Secondary == "TNN") {
  print "<br>Dinan=(TNN," . $kdmp->Primary . "), (TNN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dix");
if ($kdmp->Primary == "TKS" || $kdmp->Secondary == "TKS") {
  print "<br>Dix=(TKS," . $kdmp->Primary . "), (TKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Doggett");
if ($kdmp->Primary == "TKT" || $kdmp->Secondary == "TKT") {
  print "<br>Doggett=(TKT," . $kdmp->Primary . "), (TKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Donahue");
if ($kdmp->Primary == "TNH" || $kdmp->Secondary == "TNH") {
  print "<br>Donahue=(TNH," . $kdmp->Primary . "), (TNH," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dorfman");
if ($kdmp->Primary == "TRFM" || $kdmp->Secondary == "TRFM") {
  print "<br>Dorfman=(TRFM," . $kdmp->Primary . "), (TRFM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dorris");
if ($kdmp->Primary == "TRS" || $kdmp->Secondary == "TRS") {
  print "<br>Dorris=(TRS," . $kdmp->Primary . "), (TRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dow");
if ($kdmp->Primary == "T" || $kdmp->Secondary == "TF") {
  print "<br>Dow=(T," . $kdmp->Primary . "), (TF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Downey");
if ($kdmp->Primary == "TN" || $kdmp->Secondary == "TN") {
  print "<br>Downey=(TN," . $kdmp->Primary . "), (TN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Downing");
if ($kdmp->Primary == "TNNK" || $kdmp->Secondary == "TNNK") {
  print "<br>Downing=(TNNK," . $kdmp->Primary . "), (TNNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dowsett");
if ($kdmp->Primary == "TST" || $kdmp->Secondary == "TST") {
  print "<br>Dowsett=(TST," . $kdmp->Primary . "), (TST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Duck?");
if ($kdmp->Primary == "TK" || $kdmp->Secondary == "TK") {
  print "<br>Duck?=(TK," . $kdmp->Primary . "), (TK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dudley");
if ($kdmp->Primary == "TTL" || $kdmp->Secondary == "TTL") {
  print "<br>Dudley=(TTL," . $kdmp->Primary . "), (TTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Duffy");
if ($kdmp->Primary == "TF" || $kdmp->Secondary == "TF") {
  print "<br>Duffy=(TF," . $kdmp->Primary . "), (TF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dunn");
if ($kdmp->Primary == "TN" || $kdmp->Secondary == "TN") {
  print "<br>Dunn=(TN," . $kdmp->Primary . "), (TN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dunsterville");
if ($kdmp->Primary == "TNST" || $kdmp->Secondary == "TNST") {
  print "<br>Dunsterville=(TNST," . $kdmp->Primary . "), (TNST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Durrant");
if ($kdmp->Primary == "TRNT" || $kdmp->Secondary == "TRNT") {
  print "<br>Durrant=(TRNT," . $kdmp->Primary . "), (TRNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Durrin");
if ($kdmp->Primary == "TRN" || $kdmp->Secondary == "TRN") {
  print "<br>Durrin=(TRN," . $kdmp->Primary . "), (TRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Dustin");
if ($kdmp->Primary == "TSTN" || $kdmp->Secondary == "TSTN") {
  print "<br>Dustin=(TSTN," . $kdmp->Primary . "), (TSTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Duston");
if ($kdmp->Primary == "TSTN" || $kdmp->Secondary == "TSTN") {
  print "<br>Duston=(TSTN," . $kdmp->Primary . "), (TSTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Eames");
if ($kdmp->Primary == "AMS" || $kdmp->Secondary == "AMS") {
  print "<br>Eames=(AMS," . $kdmp->Primary . "), (AMS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Early");
if ($kdmp->Primary == "ARL" || $kdmp->Secondary == "ARL") {
  print "<br>Early=(ARL," . $kdmp->Primary . "), (ARL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Easty");
if ($kdmp->Primary == "AST" || $kdmp->Secondary == "AST") {
  print "<br>Easty=(AST," . $kdmp->Primary . "), (AST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ebbett");
if ($kdmp->Primary == "APT" || $kdmp->Secondary == "APT") {
  print "<br>Ebbett=(APT," . $kdmp->Primary . "), (APT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Eberbach");
if ($kdmp->Primary == "APRP" || $kdmp->Secondary == "APRP") {
  print "<br>Eberbach=(APRP," . $kdmp->Primary . "), (APRP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Eberhard");
if ($kdmp->Primary == "APRR" || $kdmp->Secondary == "APRR") {
  print "<br>Eberhard=(APRR," . $kdmp->Primary . "), (APRR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Eddy");
if ($kdmp->Primary == "AT" || $kdmp->Secondary == "AT") {
  print "<br>Eddy=(AT," . $kdmp->Primary . "), (AT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Edenden");
if ($kdmp->Primary == "ATNT" || $kdmp->Secondary == "ATNT") {
  print "<br>Edenden=(ATNT," . $kdmp->Primary . "), (ATNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Edwards");
if ($kdmp->Primary == "ATRT" || $kdmp->Secondary == "ATRT") {
  print "<br>Edwards=(ATRT," . $kdmp->Primary . "), (ATRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Eglinton");
if ($kdmp->Primary == "AKLN" || $kdmp->Secondary == "ALNT") {
  print "<br>Eglinton=(AKLN," . $kdmp->Primary . "), (ALNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Eliot");
if ($kdmp->Primary == "ALT" || $kdmp->Secondary == "ALT") {
  print "<br>Eliot=(ALT," . $kdmp->Primary . "), (ALT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Elizabeth");
if ($kdmp->Primary == "ALSP" || $kdmp->Secondary == "ALSP") {
  print "<br>Elizabeth=(ALSP," . $kdmp->Primary . "), (ALSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ellis");
if ($kdmp->Primary == "ALS" || $kdmp->Secondary == "ALS") {
  print "<br>Ellis=(ALS," . $kdmp->Primary . "), (ALS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ellison");
if ($kdmp->Primary == "ALSN" || $kdmp->Secondary == "ALSN") {
  print "<br>Ellison=(ALSN," . $kdmp->Primary . "), (ALSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ellot");
if ($kdmp->Primary == "ALT" || $kdmp->Secondary == "ALT") {
  print "<br>Ellot=(ALT," . $kdmp->Primary . "), (ALT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Elny");
if ($kdmp->Primary == "ALN" || $kdmp->Secondary == "ALN") {
  print "<br>Elny=(ALN," . $kdmp->Primary . "), (ALN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Elsner");
if ($kdmp->Primary == "ALSN" || $kdmp->Secondary == "ALSN") {
  print "<br>Elsner=(ALSN," . $kdmp->Primary . "), (ALSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Emerson");
if ($kdmp->Primary == "AMRS" || $kdmp->Secondary == "AMRS") {
  print "<br>Emerson=(AMRS," . $kdmp->Primary . "), (AMRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Empson");
if ($kdmp->Primary == "AMPS" || $kdmp->Secondary == "AMPS") {
  print "<br>Empson=(AMPS," . $kdmp->Primary . "), (AMPS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Est");
if ($kdmp->Primary == "AST" || $kdmp->Secondary == "AST") {
  print "<br>Est=(AST," . $kdmp->Primary . "), (AST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Estabrook");
if ($kdmp->Primary == "ASTP" || $kdmp->Secondary == "ASTP") {
  print "<br>Estabrook=(ASTP," . $kdmp->Primary . "), (ASTP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Estes");
if ($kdmp->Primary == "ASTS" || $kdmp->Secondary == "ASTS") {
  print "<br>Estes=(ASTS," . $kdmp->Primary . "), (ASTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Estey");
if ($kdmp->Primary == "AST" || $kdmp->Secondary == "AST") {
  print "<br>Estey=(AST," . $kdmp->Primary . "), (AST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Evans");
if ($kdmp->Primary == "AFNS" || $kdmp->Secondary == "AFNS") {
  print "<br>Evans=(AFNS," . $kdmp->Primary . "), (AFNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fallowell");
if ($kdmp->Primary == "FLL" || $kdmp->Secondary == "FLL") {
  print "<br>Fallowell=(FLL," . $kdmp->Primary . "), (FLL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Farnsworth");
if ($kdmp->Primary == "FRNS" || $kdmp->Secondary == "FRNS") {
  print "<br>Farnsworth=(FRNS," . $kdmp->Primary . "), (FRNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Feake");
if ($kdmp->Primary == "FK" || $kdmp->Secondary == "FK") {
  print "<br>Feake=(FK," . $kdmp->Primary . "), (FK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Feke");
if ($kdmp->Primary == "FK" || $kdmp->Secondary == "FK") {
  print "<br>Feke=(FK," . $kdmp->Primary . "), (FK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fellows");
if ($kdmp->Primary == "FLS" || $kdmp->Secondary == "FLS") {
  print "<br>Fellows=(FLS," . $kdmp->Primary . "), (FLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fettiplace");
if ($kdmp->Primary == "FTPL" || $kdmp->Secondary == "FTPL") {
  print "<br>Fettiplace=(FTPL," . $kdmp->Primary . "), (FTPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Finney");
if ($kdmp->Primary == "FN" || $kdmp->Secondary == "FN") {
  print "<br>Finney=(FN," . $kdmp->Primary . "), (FN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fischer");
if ($kdmp->Primary == "FXR" || $kdmp->Secondary == "FSKR") {
  print "<br>Fischer=(FXR," . $kdmp->Primary . "), (FSKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fisher");
if ($kdmp->Primary == "FXR" || $kdmp->Secondary == "FXR") {
  print "<br>Fisher=(FXR," . $kdmp->Primary . "), (FXR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fisk");
if ($kdmp->Primary == "FSK" || $kdmp->Secondary == "FSK") {
  print "<br>Fisk=(FSK," . $kdmp->Primary . "), (FSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fiske");
if ($kdmp->Primary == "FSK" || $kdmp->Secondary == "FSK") {
  print "<br>Fiske=(FSK," . $kdmp->Primary . "), (FSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fletcher");
if ($kdmp->Primary == "FLXR" || $kdmp->Secondary == "FLXR") {
  print "<br>Fletcher=(FLXR," . $kdmp->Primary . "), (FLXR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Folger");
if ($kdmp->Primary == "FLKR" || $kdmp->Secondary == "FLJR") {
  print "<br>Folger=(FLKR," . $kdmp->Primary . "), (FLJR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Foliot");
if ($kdmp->Primary == "FLT" || $kdmp->Secondary == "FLT") {
  print "<br>Foliot=(FLT," . $kdmp->Primary . "), (FLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Folyot");
if ($kdmp->Primary == "FLT" || $kdmp->Secondary == "FLT") {
  print "<br>Folyot=(FLT," . $kdmp->Primary . "), (FLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fones");
if ($kdmp->Primary == "FNS" || $kdmp->Secondary == "FNS") {
  print "<br>Fones=(FNS," . $kdmp->Primary . "), (FNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fordham");
if ($kdmp->Primary == "FRTM" || $kdmp->Secondary == "FRTM") {
  print "<br>Fordham=(FRTM," . $kdmp->Primary . "), (FRTM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Forstner");
if ($kdmp->Primary == "FRST" || $kdmp->Secondary == "FRST") {
  print "<br>Forstner=(FRST," . $kdmp->Primary . "), (FRST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fosten");
if ($kdmp->Primary == "FSTN" || $kdmp->Secondary == "FSTN") {
  print "<br>Fosten=(FSTN," . $kdmp->Primary . "), (FSTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Foster");
if ($kdmp->Primary == "FSTR" || $kdmp->Secondary == "FSTR") {
  print "<br>Foster=(FSTR," . $kdmp->Primary . "), (FSTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Foulke");
if ($kdmp->Primary == "FLK" || $kdmp->Secondary == "FLK") {
  print "<br>Foulke=(FLK," . $kdmp->Primary . "), (FLK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fowler");
if ($kdmp->Primary == "FLR" || $kdmp->Secondary == "FLR") {
  print "<br>Fowler=(FLR," . $kdmp->Primary . "), (FLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Foxwell");
if ($kdmp->Primary == "FKSL" || $kdmp->Secondary == "FKSL") {
  print "<br>Foxwell=(FKSL," . $kdmp->Primary . "), (FKSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fraley");
if ($kdmp->Primary == "FRL" || $kdmp->Secondary == "FRL") {
  print "<br>Fraley=(FRL," . $kdmp->Primary . "), (FRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Franceys");
if ($kdmp->Primary == "FRNS" || $kdmp->Secondary == "FRNS") {
  print "<br>Franceys=(FRNS," . $kdmp->Primary . "), (FRNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Franke");
if ($kdmp->Primary == "FRNK" || $kdmp->Secondary == "FRNK") {
  print "<br>Franke=(FRNK," . $kdmp->Primary . "), (FRNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Frascella");
if ($kdmp->Primary == "FRSL" || $kdmp->Secondary == "FRSL") {
  print "<br>Frascella=(FRSL," . $kdmp->Primary . "), (FRSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Frazer");
if ($kdmp->Primary == "FRSR" || $kdmp->Secondary == "FRSR") {
  print "<br>Frazer=(FRSR," . $kdmp->Primary . "), (FRSR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fredd");
if ($kdmp->Primary == "FRT" || $kdmp->Secondary == "FRT") {
  print "<br>Fredd=(FRT," . $kdmp->Primary . "), (FRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Freeman");
if ($kdmp->Primary == "FRMN" || $kdmp->Secondary == "FRMN") {
  print "<br>Freeman=(FRMN," . $kdmp->Primary . "), (FRMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("French");
if ($kdmp->Primary == "FRNX" || $kdmp->Secondary == "FRNK") {
  print "<br>French=(FRNX," . $kdmp->Primary . "), (FRNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Freville");
if ($kdmp->Primary == "FRFL" || $kdmp->Secondary == "FRFL") {
  print "<br>Freville=(FRFL," . $kdmp->Primary . "), (FRFL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Frey");
if ($kdmp->Primary == "FR" || $kdmp->Secondary == "FR") {
  print "<br>Frey=(FR," . $kdmp->Primary . "), (FR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Frick");
if ($kdmp->Primary == "FRK" || $kdmp->Secondary == "FRK") {
  print "<br>Frick=(FRK," . $kdmp->Primary . "), (FRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Frier");
if ($kdmp->Primary == "FR" || $kdmp->Secondary == "FRR") {
  print "<br>Frier=(FR," . $kdmp->Primary . "), (FRR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Froe");
if ($kdmp->Primary == "FR" || $kdmp->Secondary == "FR") {
  print "<br>Froe=(FR," . $kdmp->Primary . "), (FR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Frorer");
if ($kdmp->Primary == "FRRR" || $kdmp->Secondary == "FRRR") {
  print "<br>Frorer=(FRRR," . $kdmp->Primary . "), (FRRR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Frost");
if ($kdmp->Primary == "FRST" || $kdmp->Secondary == "FRST") {
  print "<br>Frost=(FRST," . $kdmp->Primary . "), (FRST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Frothingham");
if ($kdmp->Primary == "FR0N" || $kdmp->Secondary == "FRTN") {
  print "<br>Frothingham=(FR0N," . $kdmp->Primary . "), (FRTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Fry");
if ($kdmp->Primary == "FR" || $kdmp->Secondary == "FR") {
  print "<br>Fry=(FR," . $kdmp->Primary . "), (FR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gaffney");
if ($kdmp->Primary == "KFN" || $kdmp->Secondary == "KFN") {
  print "<br>Gaffney=(KFN," . $kdmp->Primary . "), (KFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gage");
if ($kdmp->Primary == "KJ" || $kdmp->Secondary == "KK") {
  print "<br>Gage=(KJ," . $kdmp->Primary . "), (KK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gallion");
if ($kdmp->Primary == "KLN" || $kdmp->Secondary == "KLN") {
  print "<br>Gallion=(KLN," . $kdmp->Primary . "), (KLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gallishan");
if ($kdmp->Primary == "KLXN" || $kdmp->Secondary == "KLXN") {
  print "<br>Gallishan=(KLXN," . $kdmp->Primary . "), (KLXN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gamble");
if ($kdmp->Primary == "KMPL" || $kdmp->Secondary == "KMPL") {
  print "<br>Gamble=(KMPL," . $kdmp->Primary . "), (KMPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Garbrand");
if ($kdmp->Primary == "KRPR" || $kdmp->Secondary == "KRPR") {
  print "<br>Garbrand=(KRPR," . $kdmp->Primary . "), (KRPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gardner");
if ($kdmp->Primary == "KRTN" || $kdmp->Secondary == "KRTN") {
  print "<br>Gardner=(KRTN," . $kdmp->Primary . "), (KRTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Garrett");
if ($kdmp->Primary == "KRT" || $kdmp->Secondary == "KRT") {
  print "<br>Garrett=(KRT," . $kdmp->Primary . "), (KRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gassner");
if ($kdmp->Primary == "KSNR" || $kdmp->Secondary == "KSNR") {
  print "<br>Gassner=(KSNR," . $kdmp->Primary . "), (KSNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gater");
if ($kdmp->Primary == "KTR" || $kdmp->Secondary == "KTR") {
  print "<br>Gater=(KTR," . $kdmp->Primary . "), (KTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gaunt");
if ($kdmp->Primary == "KNT" || $kdmp->Secondary == "KNT") {
  print "<br>Gaunt=(KNT," . $kdmp->Primary . "), (KNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gayer");
if ($kdmp->Primary == "KR" || $kdmp->Secondary == "KR") {
  print "<br>Gayer=(KR," . $kdmp->Primary . "), (KR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gerken");
if ($kdmp->Primary == "KRKN" || $kdmp->Secondary == "JRKN") {
  print "<br>Gerken=(KRKN," . $kdmp->Primary . "), (JRKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gerritsen");
if ($kdmp->Primary == "KRTS" || $kdmp->Secondary == "JRTS") {
  print "<br>Gerritsen=(KRTS," . $kdmp->Primary . "), (JRTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gibbs");
if ($kdmp->Primary == "KPS" || $kdmp->Secondary == "JPS") {
  print "<br>Gibbs=(KPS," . $kdmp->Primary . "), (JPS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Giffard");
if ($kdmp->Primary == "JFRT" || $kdmp->Secondary == "KFRT") {
  print "<br>Giffard=(JFRT," . $kdmp->Primary . "), (KFRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gilbert");
if ($kdmp->Primary == "KLPR" || $kdmp->Secondary == "JLPR") {
  print "<br>Gilbert=(KLPR," . $kdmp->Primary . "), (JLPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gill");
if ($kdmp->Primary == "KL" || $kdmp->Secondary == "JL") {
  print "<br>Gill=(KL," . $kdmp->Primary . "), (JL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gilman");
if ($kdmp->Primary == "KLMN" || $kdmp->Secondary == "JLMN") {
  print "<br>Gilman=(KLMN," . $kdmp->Primary . "), (JLMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Glass");
if ($kdmp->Primary == "KLS" || $kdmp->Secondary == "KLS") {
  print "<br>Glass=(KLS," . $kdmp->Primary . "), (KLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Goddard\Gifford");
if ($kdmp->Primary == "KTRT" || $kdmp->Secondary == "KTRT") {
  print "<br>Goddard\Gifford=(KTRT," . $kdmp->Primary . "), (KTRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Godfrey");
if ($kdmp->Primary == "KTFR" || $kdmp->Secondary == "KTFR") {
  print "<br>Godfrey=(KTFR," . $kdmp->Primary . "), (KTFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Godwin");
if ($kdmp->Primary == "KTN" || $kdmp->Secondary == "KTN") {
  print "<br>Godwin=(KTN," . $kdmp->Primary . "), (KTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Goodale");
if ($kdmp->Primary == "KTL" || $kdmp->Secondary == "KTL") {
  print "<br>Goodale=(KTL," . $kdmp->Primary . "), (KTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Goodnow");
if ($kdmp->Primary == "KTN" || $kdmp->Secondary == "KTNF") {
  print "<br>Goodnow=(KTN," . $kdmp->Primary . "), (KTNF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gorham");
if ($kdmp->Primary == "KRM" || $kdmp->Secondary == "KRM") {
  print "<br>Gorham=(KRM," . $kdmp->Primary . "), (KRM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Goseline");
if ($kdmp->Primary == "KSLN" || $kdmp->Secondary == "KSLN") {
  print "<br>Goseline=(KSLN," . $kdmp->Primary . "), (KSLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gott");
if ($kdmp->Primary == "KT" || $kdmp->Secondary == "KT") {
  print "<br>Gott=(KT," . $kdmp->Primary . "), (KT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gould");
if ($kdmp->Primary == "KLT" || $kdmp->Secondary == "KLT") {
  print "<br>Gould=(KLT," . $kdmp->Primary . "), (KLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Grafton");
if ($kdmp->Primary == "KRFT" || $kdmp->Secondary == "KRFT") {
  print "<br>Grafton=(KRFT," . $kdmp->Primary . "), (KRFT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Grant");
if ($kdmp->Primary == "KRNT" || $kdmp->Secondary == "KRNT") {
  print "<br>Grant=(KRNT," . $kdmp->Primary . "), (KRNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gray");
if ($kdmp->Primary == "KR" || $kdmp->Secondary == "KR") {
  print "<br>Gray=(KR," . $kdmp->Primary . "), (KR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Green");
if ($kdmp->Primary == "KRN" || $kdmp->Secondary == "KRN") {
  print "<br>Green=(KRN," . $kdmp->Primary . "), (KRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Griffin");
if ($kdmp->Primary == "KRFN" || $kdmp->Secondary == "KRFN") {
  print "<br>Griffin=(KRFN," . $kdmp->Primary . "), (KRFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Grill");
if ($kdmp->Primary == "KRL" || $kdmp->Secondary == "KRL") {
  print "<br>Grill=(KRL," . $kdmp->Primary . "), (KRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Grim");
if ($kdmp->Primary == "KRM" || $kdmp->Secondary == "KRM") {
  print "<br>Grim=(KRM," . $kdmp->Primary . "), (KRM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Grisgonelle");
if ($kdmp->Primary == "KRSK" || $kdmp->Secondary == "KRSK") {
  print "<br>Grisgonelle=(KRSK," . $kdmp->Primary . "), (KRSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gross");
if ($kdmp->Primary == "KRS" || $kdmp->Secondary == "KRS") {
  print "<br>Gross=(KRS," . $kdmp->Primary . "), (KRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Guba");
if ($kdmp->Primary == "KP" || $kdmp->Secondary == "KP") {
  print "<br>Guba=(KP," . $kdmp->Primary . "), (KP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Gybbes");
if ($kdmp->Primary == "KPS" || $kdmp->Secondary == "JPS") {
  print "<br>Gybbes=(KPS," . $kdmp->Primary . "), (JPS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Haburne");
if ($kdmp->Primary == "HPRN" || $kdmp->Secondary == "HPRN") {
  print "<br>Haburne=(HPRN," . $kdmp->Primary . "), (HPRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hackburne");
if ($kdmp->Primary == "HKPR" || $kdmp->Secondary == "HKPR") {
  print "<br>Hackburne=(HKPR," . $kdmp->Primary . "), (HKPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Haddon?");
if ($kdmp->Primary == "HTN" || $kdmp->Secondary == "HTN") {
  print "<br>Haddon?=(HTN," . $kdmp->Primary . "), (HTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Haines");
if ($kdmp->Primary == "HNS" || $kdmp->Secondary == "HNS") {
  print "<br>Haines=(HNS," . $kdmp->Primary . "), (HNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hale");
if ($kdmp->Primary == "HL" || $kdmp->Secondary == "HL") {
  print "<br>Hale=(HL," . $kdmp->Primary . "), (HL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hall");
if ($kdmp->Primary == "HL" || $kdmp->Secondary == "HL") {
  print "<br>Hall=(HL," . $kdmp->Primary . "), (HL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hallet");
if ($kdmp->Primary == "HLT" || $kdmp->Secondary == "HLT") {
  print "<br>Hallet=(HLT," . $kdmp->Primary . "), (HLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hallock");
if ($kdmp->Primary == "HLK" || $kdmp->Secondary == "HLK") {
  print "<br>Hallock=(HLK," . $kdmp->Primary . "), (HLK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Halstead");
if ($kdmp->Primary == "HLST" || $kdmp->Secondary == "HLST") {
  print "<br>Halstead=(HLST," . $kdmp->Primary . "), (HLST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hammond");
if ($kdmp->Primary == "HMNT" || $kdmp->Secondary == "HMNT") {
  print "<br>Hammond=(HMNT," . $kdmp->Primary . "), (HMNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hance");
if ($kdmp->Primary == "HNS" || $kdmp->Secondary == "HNS") {
  print "<br>Hance=(HNS," . $kdmp->Primary . "), (HNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Handy");
if ($kdmp->Primary == "HNT" || $kdmp->Secondary == "HNT") {
  print "<br>Handy=(HNT," . $kdmp->Primary . "), (HNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hanson");
if ($kdmp->Primary == "HNSN" || $kdmp->Secondary == "HNSN") {
  print "<br>Hanson=(HNSN," . $kdmp->Primary . "), (HNSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Harasek");
if ($kdmp->Primary == "HRSK" || $kdmp->Secondary == "HRSK") {
  print "<br>Harasek=(HRSK," . $kdmp->Primary . "), (HRSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Harcourt");
if ($kdmp->Primary == "HRKR" || $kdmp->Secondary == "HRKR") {
  print "<br>Harcourt=(HRKR," . $kdmp->Primary . "), (HRKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hardy");
if ($kdmp->Primary == "HRT" || $kdmp->Secondary == "HRT") {
  print "<br>Hardy=(HRT," . $kdmp->Primary . "), (HRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Harlock");
if ($kdmp->Primary == "HRLK" || $kdmp->Secondary == "HRLK") {
  print "<br>Harlock=(HRLK," . $kdmp->Primary . "), (HRLK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Harris");
if ($kdmp->Primary == "HRS" || $kdmp->Secondary == "HRS") {
  print "<br>Harris=(HRS," . $kdmp->Primary . "), (HRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hartley");
if ($kdmp->Primary == "HRTL" || $kdmp->Secondary == "HRTL") {
  print "<br>Hartley=(HRTL," . $kdmp->Primary . "), (HRTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Harvey");
if ($kdmp->Primary == "HRF" || $kdmp->Secondary == "HRF") {
  print "<br>Harvey=(HRF," . $kdmp->Primary . "), (HRF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Harvie");
if ($kdmp->Primary == "HRF" || $kdmp->Secondary == "HRF") {
  print "<br>Harvie=(HRF," . $kdmp->Primary . "), (HRF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Harwood");
if ($kdmp->Primary == "HRT" || $kdmp->Secondary == "HRT") {
  print "<br>Harwood=(HRT," . $kdmp->Primary . "), (HRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hathaway");
if ($kdmp->Primary == "H0" || $kdmp->Secondary == "HT") {
  print "<br>Hathaway=(H0," . $kdmp->Primary . "), (HT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Haukeness");
if ($kdmp->Primary == "HKNS" || $kdmp->Secondary == "HKNS") {
  print "<br>Haukeness=(HKNS," . $kdmp->Primary . "), (HKNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hawkes");
if ($kdmp->Primary == "HKS" || $kdmp->Secondary == "HKS") {
  print "<br>Hawkes=(HKS," . $kdmp->Primary . "), (HKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hawkhurst");
if ($kdmp->Primary == "HKRS" || $kdmp->Secondary == "HKRS") {
  print "<br>Hawkhurst=(HKRS," . $kdmp->Primary . "), (HKRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hawkins");
if ($kdmp->Primary == "HKNS" || $kdmp->Secondary == "HKNS") {
  print "<br>Hawkins=(HKNS," . $kdmp->Primary . "), (HKNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hawley");
if ($kdmp->Primary == "HL" || $kdmp->Secondary == "HL") {
  print "<br>Hawley=(HL," . $kdmp->Primary . "), (HL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Heald");
if ($kdmp->Primary == "HLT" || $kdmp->Secondary == "HLT") {
  print "<br>Heald=(HLT," . $kdmp->Primary . "), (HLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Helsdon");
if ($kdmp->Primary == "HLST" || $kdmp->Secondary == "HLST") {
  print "<br>Helsdon=(HLST," . $kdmp->Primary . "), (HLST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hemenway");
if ($kdmp->Primary == "HMN" || $kdmp->Secondary == "HMN") {
  print "<br>Hemenway=(HMN," . $kdmp->Primary . "), (HMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hemmenway");
if ($kdmp->Primary == "HMN" || $kdmp->Secondary == "HMN") {
  print "<br>Hemmenway=(HMN," . $kdmp->Primary . "), (HMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Henck");
if ($kdmp->Primary == "HNK" || $kdmp->Secondary == "HNK") {
  print "<br>Henck=(HNK," . $kdmp->Primary . "), (HNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Henderson");
if ($kdmp->Primary == "HNTR" || $kdmp->Secondary == "HNTR") {
  print "<br>Henderson=(HNTR," . $kdmp->Primary . "), (HNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hendricks");
if ($kdmp->Primary == "HNTR" || $kdmp->Secondary == "HNTR") {
  print "<br>Hendricks=(HNTR," . $kdmp->Primary . "), (HNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hersey");
if ($kdmp->Primary == "HRS" || $kdmp->Secondary == "HRS") {
  print "<br>Hersey=(HRS," . $kdmp->Primary . "), (HRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hewes");
if ($kdmp->Primary == "HS" || $kdmp->Secondary == "HS") {
  print "<br>Hewes=(HS," . $kdmp->Primary . "), (HS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Heyman");
if ($kdmp->Primary == "HMN" || $kdmp->Secondary == "HMN") {
  print "<br>Heyman=(HMN," . $kdmp->Primary . "), (HMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hicks");
if ($kdmp->Primary == "HKS" || $kdmp->Secondary == "HKS") {
  print "<br>Hicks=(HKS," . $kdmp->Primary . "), (HKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hidden");
if ($kdmp->Primary == "HTN" || $kdmp->Secondary == "HTN") {
  print "<br>Hidden=(HTN," . $kdmp->Primary . "), (HTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Higgs");
if ($kdmp->Primary == "HKS" || $kdmp->Secondary == "HKS") {
  print "<br>Higgs=(HKS," . $kdmp->Primary . "), (HKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hill");
if ($kdmp->Primary == "HL" || $kdmp->Secondary == "HL") {
  print "<br>Hill=(HL," . $kdmp->Primary . "), (HL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hills");
if ($kdmp->Primary == "HLS" || $kdmp->Secondary == "HLS") {
  print "<br>Hills=(HLS," . $kdmp->Primary . "), (HLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hinckley");
if ($kdmp->Primary == "HNKL" || $kdmp->Secondary == "HNKL") {
  print "<br>Hinckley=(HNKL," . $kdmp->Primary . "), (HNKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hipwell");
if ($kdmp->Primary == "HPL" || $kdmp->Secondary == "HPL") {
  print "<br>Hipwell=(HPL," . $kdmp->Primary . "), (HPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hobart");
if ($kdmp->Primary == "HPRT" || $kdmp->Secondary == "HPRT") {
  print "<br>Hobart=(HPRT," . $kdmp->Primary . "), (HPRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hoben");
if ($kdmp->Primary == "HPN" || $kdmp->Secondary == "HPN") {
  print "<br>Hoben=(HPN," . $kdmp->Primary . "), (HPN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hoffmann");
if ($kdmp->Primary == "HFMN" || $kdmp->Secondary == "HFMN") {
  print "<br>Hoffmann=(HFMN," . $kdmp->Primary . "), (HFMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hogan");
if ($kdmp->Primary == "HKN" || $kdmp->Secondary == "HKN") {
  print "<br>Hogan=(HKN," . $kdmp->Primary . "), (HKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Holmes");
if ($kdmp->Primary == "HLMS" || $kdmp->Secondary == "HLMS") {
  print "<br>Holmes=(HLMS," . $kdmp->Primary . "), (HLMS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hoo");
if ($kdmp->Primary == "H" || $kdmp->Secondary == "H") {
  print "<br>Hoo=(H," . $kdmp->Primary . "), (H," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hooker");
if ($kdmp->Primary == "HKR" || $kdmp->Secondary == "HKR") {
  print "<br>Hooker=(HKR," . $kdmp->Primary . "), (HKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hopcott");
if ($kdmp->Primary == "HPKT" || $kdmp->Secondary == "HPKT") {
  print "<br>Hopcott=(HPKT," . $kdmp->Primary . "), (HPKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hopkins");
if ($kdmp->Primary == "HPKN" || $kdmp->Secondary == "HPKN") {
  print "<br>Hopkins=(HPKN," . $kdmp->Primary . "), (HPKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hopkinson");
if ($kdmp->Primary == "HPKN" || $kdmp->Secondary == "HPKN") {
  print "<br>Hopkinson=(HPKN," . $kdmp->Primary . "), (HPKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hornsey");
if ($kdmp->Primary == "HRNS" || $kdmp->Secondary == "HRNS") {
  print "<br>Hornsey=(HRNS," . $kdmp->Primary . "), (HRNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Houckgeest");
if ($kdmp->Primary == "HKJS" || $kdmp->Secondary == "HKKS") {
  print "<br>Houckgeest=(HKJS," . $kdmp->Primary . "), (HKKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hough");
if ($kdmp->Primary == "H" || $kdmp->Secondary == "H") {
  print "<br>Hough=(H," . $kdmp->Primary . "), (H," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Houstin");
if ($kdmp->Primary == "HSTN" || $kdmp->Secondary == "HSTN") {
  print "<br>Houstin=(HSTN," . $kdmp->Primary . "), (HSTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("How");
if ($kdmp->Primary == "H" || $kdmp->Secondary == "HF") {
  print "<br>How=(H," . $kdmp->Primary . "), (HF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Howe");
if ($kdmp->Primary == "H" || $kdmp->Secondary == "H") {
  print "<br>Howe=(H," . $kdmp->Primary . "), (H," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Howland");
if ($kdmp->Primary == "HLNT" || $kdmp->Secondary == "HLNT") {
  print "<br>Howland=(HLNT," . $kdmp->Primary . "), (HLNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hubner");
if ($kdmp->Primary == "HPNR" || $kdmp->Secondary == "HPNR") {
  print "<br>Hubner=(HPNR," . $kdmp->Primary . "), (HPNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hudnut");
if ($kdmp->Primary == "HTNT" || $kdmp->Secondary == "HTNT") {
  print "<br>Hudnut=(HTNT," . $kdmp->Primary . "), (HTNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hughes");
if ($kdmp->Primary == "HS" || $kdmp->Secondary == "HS") {
  print "<br>Hughes=(HS," . $kdmp->Primary . "), (HS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hull");
if ($kdmp->Primary == "HL" || $kdmp->Secondary == "HL") {
  print "<br>Hull=(HL," . $kdmp->Primary . "), (HL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hulme");
if ($kdmp->Primary == "HLM" || $kdmp->Secondary == "HLM") {
  print "<br>Hulme=(HLM," . $kdmp->Primary . "), (HLM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hume");
if ($kdmp->Primary == "HM" || $kdmp->Secondary == "HM") {
  print "<br>Hume=(HM," . $kdmp->Primary . "), (HM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hundertumark");
if ($kdmp->Primary == "HNTR" || $kdmp->Secondary == "HNTR") {
  print "<br>Hundertumark=(HNTR," . $kdmp->Primary . "), (HNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hundley");
if ($kdmp->Primary == "HNTL" || $kdmp->Secondary == "HNTL") {
  print "<br>Hundley=(HNTL," . $kdmp->Primary . "), (HNTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hungerford");
if ($kdmp->Primary == "HNKR" || $kdmp->Secondary == "HNJR") {
  print "<br>Hungerford=(HNKR," . $kdmp->Primary . "), (HNJR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hunt");
if ($kdmp->Primary == "HNT" || $kdmp->Secondary == "HNT") {
  print "<br>Hunt=(HNT," . $kdmp->Primary . "), (HNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hurst");
if ($kdmp->Primary == "HRST" || $kdmp->Secondary == "HRST") {
  print "<br>Hurst=(HRST," . $kdmp->Primary . "), (HRST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Husbands");
if ($kdmp->Primary == "HSPN" || $kdmp->Secondary == "HSPN") {
  print "<br>Husbands=(HSPN," . $kdmp->Primary . "), (HSPN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hussey");
if ($kdmp->Primary == "HS" || $kdmp->Secondary == "HS") {
  print "<br>Hussey=(HS," . $kdmp->Primary . "), (HS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Husted");
if ($kdmp->Primary == "HSTT" || $kdmp->Secondary == "HSTT") {
  print "<br>Husted=(HSTT," . $kdmp->Primary . "), (HSTT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hutchins");
if ($kdmp->Primary == "HXNS" || $kdmp->Secondary == "HXNS") {
  print "<br>Hutchins=(HXNS," . $kdmp->Primary . "), (HXNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Hutchinson");
if ($kdmp->Primary == "HXNS" || $kdmp->Secondary == "HXNS") {
  print "<br>Hutchinson=(HXNS," . $kdmp->Primary . "), (HXNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Huttinger");
if ($kdmp->Primary == "HTNK" || $kdmp->Secondary == "HTNJ") {
  print "<br>Huttinger=(HTNK," . $kdmp->Primary . "), (HTNJ," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Huybertsen");
if ($kdmp->Primary == "HPRT" || $kdmp->Secondary == "HPRT") {
  print "<br>Huybertsen=(HPRT," . $kdmp->Primary . "), (HPRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Iddenden");
if ($kdmp->Primary == "ATNT" || $kdmp->Secondary == "ATNT") {
  print "<br>Iddenden=(ATNT," . $kdmp->Primary . "), (ATNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ingraham");
if ($kdmp->Primary == "ANKR" || $kdmp->Secondary == "ANKR") {
  print "<br>Ingraham=(ANKR," . $kdmp->Primary . "), (ANKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ives");
if ($kdmp->Primary == "AFS" || $kdmp->Secondary == "AFS") {
  print "<br>Ives=(AFS," . $kdmp->Primary . "), (AFS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Jackson");
if ($kdmp->Primary == "JKSN" || $kdmp->Secondary == "AKSN") {
  print "<br>Jackson=(JKSN," . $kdmp->Primary . "), (AKSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Jacob");
if ($kdmp->Primary == "JKP" || $kdmp->Secondary == "AKP") {
  print "<br>Jacob=(JKP," . $kdmp->Primary . "), (AKP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Jans");
if ($kdmp->Primary == "JNS" || $kdmp->Secondary == "ANS") {
  print "<br>Jans=(JNS," . $kdmp->Primary . "), (ANS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Jenkins");
if ($kdmp->Primary == "JNKN" || $kdmp->Secondary == "ANKN") {
  print "<br>Jenkins=(JNKN," . $kdmp->Primary . "), (ANKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Jewett");
if ($kdmp->Primary == "JT" || $kdmp->Secondary == "AT") {
  print "<br>Jewett=(JT," . $kdmp->Primary . "), (AT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Jewitt");
if ($kdmp->Primary == "JT" || $kdmp->Secondary == "AT") {
  print "<br>Jewitt=(JT," . $kdmp->Primary . "), (AT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Johnson");
if ($kdmp->Primary == "JNSN" || $kdmp->Secondary == "ANSN") {
  print "<br>Johnson=(JNSN," . $kdmp->Primary . "), (ANSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Jones");
if ($kdmp->Primary == "JNS" || $kdmp->Secondary == "ANS") {
  print "<br>Jones=(JNS," . $kdmp->Primary . "), (ANS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Josephine");
if ($kdmp->Primary == "JSFN" || $kdmp->Secondary == "HSFN") {
  print "<br>Josephine=(JSFN," . $kdmp->Primary . "), (HSFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Judd");
if ($kdmp->Primary == "JT" || $kdmp->Secondary == "AT") {
  print "<br>Judd=(JT," . $kdmp->Primary . "), (AT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("June");
if ($kdmp->Primary == "JN" || $kdmp->Secondary == "AN") {
  print "<br>June=(JN," . $kdmp->Primary . "), (AN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kamarowska");
if ($kdmp->Primary == "KMRS" || $kdmp->Secondary == "KMRS") {
  print "<br>Kamarowska=(KMRS," . $kdmp->Primary . "), (KMRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kay");
if ($kdmp->Primary == "K" || $kdmp->Secondary == "K") {
  print "<br>Kay=(K," . $kdmp->Primary . "), (K," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kelley");
if ($kdmp->Primary == "KL" || $kdmp->Secondary == "KL") {
  print "<br>Kelley=(KL," . $kdmp->Primary . "), (KL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kelly");
if ($kdmp->Primary == "KL" || $kdmp->Secondary == "KL") {
  print "<br>Kelly=(KL," . $kdmp->Primary . "), (KL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Keymber");
if ($kdmp->Primary == "KMPR" || $kdmp->Secondary == "KMPR") {
  print "<br>Keymber=(KMPR," . $kdmp->Primary . "), (KMPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Keynes");
if ($kdmp->Primary == "KNS" || $kdmp->Secondary == "KNS") {
  print "<br>Keynes=(KNS," . $kdmp->Primary . "), (KNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kilham");
if ($kdmp->Primary == "KLM" || $kdmp->Secondary == "KLM") {
  print "<br>Kilham=(KLM," . $kdmp->Primary . "), (KLM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kim");
if ($kdmp->Primary == "KM" || $kdmp->Secondary == "KM") {
  print "<br>Kim=(KM," . $kdmp->Primary . "), (KM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kimball");
if ($kdmp->Primary == "KMPL" || $kdmp->Secondary == "KMPL") {
  print "<br>Kimball=(KMPL," . $kdmp->Primary . "), (KMPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("King");
if ($kdmp->Primary == "KNK" || $kdmp->Secondary == "KNK") {
  print "<br>King=(KNK," . $kdmp->Primary . "), (KNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kinsey");
if ($kdmp->Primary == "KNS" || $kdmp->Secondary == "KNS") {
  print "<br>Kinsey=(KNS," . $kdmp->Primary . "), (KNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kirk");
if ($kdmp->Primary == "KRK" || $kdmp->Secondary == "KRK") {
  print "<br>Kirk=(KRK," . $kdmp->Primary . "), (KRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kirton");
if ($kdmp->Primary == "KRTN" || $kdmp->Secondary == "KRTN") {
  print "<br>Kirton=(KRTN," . $kdmp->Primary . "), (KRTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kistler");
if ($kdmp->Primary == "KSTL" || $kdmp->Secondary == "KSTL") {
  print "<br>Kistler=(KSTL," . $kdmp->Primary . "), (KSTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kitchen");
if ($kdmp->Primary == "KXN" || $kdmp->Secondary == "KXN") {
  print "<br>Kitchen=(KXN," . $kdmp->Primary . "), (KXN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kitson");
if ($kdmp->Primary == "KTSN" || $kdmp->Secondary == "KTSN") {
  print "<br>Kitson=(KTSN," . $kdmp->Primary . "), (KTSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Klett");
if ($kdmp->Primary == "KLT" || $kdmp->Secondary == "KLT") {
  print "<br>Klett=(KLT," . $kdmp->Primary . "), (KLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Kline");
if ($kdmp->Primary == "KLN" || $kdmp->Secondary == "KLN") {
  print "<br>Kline=(KLN," . $kdmp->Primary . "), (KLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Knapp");
if ($kdmp->Primary == "NP" || $kdmp->Secondary == "NP") {
  print "<br>Knapp=(NP," . $kdmp->Primary . "), (NP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Knight");
if ($kdmp->Primary == "NT" || $kdmp->Secondary == "NT") {
  print "<br>Knight=(NT," . $kdmp->Primary . "), (NT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Knote");
if ($kdmp->Primary == "NT" || $kdmp->Secondary == "NT") {
  print "<br>Knote=(NT," . $kdmp->Primary . "), (NT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Knott");
if ($kdmp->Primary == "NT" || $kdmp->Secondary == "NT") {
  print "<br>Knott=(NT," . $kdmp->Primary . "), (NT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Knox");
if ($kdmp->Primary == "NKS" || $kdmp->Secondary == "NKS") {
  print "<br>Knox=(NKS," . $kdmp->Primary . "), (NKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Koeller");
if ($kdmp->Primary == "KLR" || $kdmp->Secondary == "KLR") {
  print "<br>Koeller=(KLR," . $kdmp->Primary . "), (KLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("La Pointe");
if ($kdmp->Primary == "LPNT" || $kdmp->Secondary == "LPNT") {
  print "<br>La Pointe=(LPNT," . $kdmp->Primary . "), (LPNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("LaPlante");
if ($kdmp->Primary == "LPLN" || $kdmp->Secondary == "LPLN") {
  print "<br>LaPlante=(LPLN," . $kdmp->Primary . "), (LPLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Laimbeer");
if ($kdmp->Primary == "LMPR" || $kdmp->Secondary == "LMPR") {
  print "<br>Laimbeer=(LMPR," . $kdmp->Primary . "), (LMPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lamb");
if ($kdmp->Primary == "LMP" || $kdmp->Secondary == "LMP") {
  print "<br>Lamb=(LMP," . $kdmp->Primary . "), (LMP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lambertson");
if ($kdmp->Primary == "LMPR" || $kdmp->Secondary == "LMPR") {
  print "<br>Lambertson=(LMPR," . $kdmp->Primary . "), (LMPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lancto");
if ($kdmp->Primary == "LNKT" || $kdmp->Secondary == "LNKT") {
  print "<br>Lancto=(LNKT," . $kdmp->Primary . "), (LNKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Landry");
if ($kdmp->Primary == "LNTR" || $kdmp->Secondary == "LNTR") {
  print "<br>Landry=(LNTR," . $kdmp->Primary . "), (LNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lane");
if ($kdmp->Primary == "LN" || $kdmp->Secondary == "LN") {
  print "<br>Lane=(LN," . $kdmp->Primary . "), (LN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Langendyck");
if ($kdmp->Primary == "LNJN" || $kdmp->Secondary == "LNKN") {
  print "<br>Langendyck=(LNJN," . $kdmp->Primary . "), (LNKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Langer");
if ($kdmp->Primary == "LNKR" || $kdmp->Secondary == "LNJR") {
  print "<br>Langer=(LNKR," . $kdmp->Primary . "), (LNJR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Langford");
if ($kdmp->Primary == "LNKF" || $kdmp->Secondary == "LNKF") {
  print "<br>Langford=(LNKF," . $kdmp->Primary . "), (LNKF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lantersee");
if ($kdmp->Primary == "LNTR" || $kdmp->Secondary == "LNTR") {
  print "<br>Lantersee=(LNTR," . $kdmp->Primary . "), (LNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Laquer");
if ($kdmp->Primary == "LKR" || $kdmp->Secondary == "LKR") {
  print "<br>Laquer=(LKR," . $kdmp->Primary . "), (LKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Larkin");
if ($kdmp->Primary == "LRKN" || $kdmp->Secondary == "LRKN") {
  print "<br>Larkin=(LRKN," . $kdmp->Primary . "), (LRKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Latham");
if ($kdmp->Primary == "LTM" || $kdmp->Secondary == "LTM") {
  print "<br>Latham=(LTM," . $kdmp->Primary . "), (LTM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lathrop");
if ($kdmp->Primary == "L0RP" || $kdmp->Secondary == "LTRP") {
  print "<br>Lathrop=(L0RP," . $kdmp->Primary . "), (LTRP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lauter");
if ($kdmp->Primary == "LTR" || $kdmp->Secondary == "LTR") {
  print "<br>Lauter=(LTR," . $kdmp->Primary . "), (LTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lawrence");
if ($kdmp->Primary == "LRNS" || $kdmp->Secondary == "LRNS") {
  print "<br>Lawrence=(LRNS," . $kdmp->Primary . "), (LRNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Leach");
if ($kdmp->Primary == "LK" || $kdmp->Secondary == "LK") {
  print "<br>Leach=(LK," . $kdmp->Primary . "), (LK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Leager");
if ($kdmp->Primary == "LKR" || $kdmp->Secondary == "LJR") {
  print "<br>Leager=(LKR," . $kdmp->Primary . "), (LJR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Learned");
if ($kdmp->Primary == "LRNT" || $kdmp->Secondary == "LRNT") {
  print "<br>Learned=(LRNT," . $kdmp->Primary . "), (LRNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Leavitt");
if ($kdmp->Primary == "LFT" || $kdmp->Secondary == "LFT") {
  print "<br>Leavitt=(LFT," . $kdmp->Primary . "), (LFT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lee");
if ($kdmp->Primary == "L" || $kdmp->Secondary == "L") {
  print "<br>Lee=(L," . $kdmp->Primary . "), (L," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Leete");
if ($kdmp->Primary == "LT" || $kdmp->Secondary == "LT") {
  print "<br>Leete=(LT," . $kdmp->Primary . "), (LT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Leggett");
if ($kdmp->Primary == "LKT" || $kdmp->Secondary == "LKT") {
  print "<br>Leggett=(LKT," . $kdmp->Primary . "), (LKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Leland");
if ($kdmp->Primary == "LLNT" || $kdmp->Secondary == "LLNT") {
  print "<br>Leland=(LLNT," . $kdmp->Primary . "), (LLNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Leonard");
if ($kdmp->Primary == "LNRT" || $kdmp->Secondary == "LNRT") {
  print "<br>Leonard=(LNRT," . $kdmp->Primary . "), (LNRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lester");
if ($kdmp->Primary == "LSTR" || $kdmp->Secondary == "LSTR") {
  print "<br>Lester=(LSTR," . $kdmp->Primary . "), (LSTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lestrange");
if ($kdmp->Primary == "LSTR" || $kdmp->Secondary == "LSTR") {
  print "<br>Lestrange=(LSTR," . $kdmp->Primary . "), (LSTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lethem");
if ($kdmp->Primary == "L0M" || $kdmp->Secondary == "LTM") {
  print "<br>Lethem=(L0M," . $kdmp->Primary . "), (LTM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Levine");
if ($kdmp->Primary == "LFN" || $kdmp->Secondary == "LFN") {
  print "<br>Levine=(LFN," . $kdmp->Primary . "), (LFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lewes");
if ($kdmp->Primary == "LS" || $kdmp->Secondary == "LS") {
  print "<br>Lewes=(LS," . $kdmp->Primary . "), (LS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lewis");
if ($kdmp->Primary == "LS" || $kdmp->Secondary == "LS") {
  print "<br>Lewis=(LS," . $kdmp->Primary . "), (LS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lincoln");
if ($kdmp->Primary == "LNKL" || $kdmp->Secondary == "LNKL") {
  print "<br>Lincoln=(LNKL," . $kdmp->Primary . "), (LNKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lindsey");
if ($kdmp->Primary == "LNTS" || $kdmp->Secondary == "LNTS") {
  print "<br>Lindsey=(LNTS," . $kdmp->Primary . "), (LNTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Linher");
if ($kdmp->Primary == "LNR" || $kdmp->Secondary == "LNR") {
  print "<br>Linher=(LNR," . $kdmp->Primary . "), (LNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lippet");
if ($kdmp->Primary == "LPT" || $kdmp->Secondary == "LPT") {
  print "<br>Lippet=(LPT," . $kdmp->Primary . "), (LPT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lippincott");
if ($kdmp->Primary == "LPNK" || $kdmp->Secondary == "LPNK") {
  print "<br>Lippincott=(LPNK," . $kdmp->Primary . "), (LPNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lockwood");
if ($kdmp->Primary == "LKT" || $kdmp->Secondary == "LKT") {
  print "<br>Lockwood=(LKT," . $kdmp->Primary . "), (LKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Loines");
if ($kdmp->Primary == "LNS" || $kdmp->Secondary == "LNS") {
  print "<br>Loines=(LNS," . $kdmp->Primary . "), (LNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lombard");
if ($kdmp->Primary == "LMPR" || $kdmp->Secondary == "LMPR") {
  print "<br>Lombard=(LMPR," . $kdmp->Primary . "), (LMPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Long");
if ($kdmp->Primary == "LNK" || $kdmp->Secondary == "LNK") {
  print "<br>Long=(LNK," . $kdmp->Primary . "), (LNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Longespee");
if ($kdmp->Primary == "LNJS" || $kdmp->Secondary == "LNKS") {
  print "<br>Longespee=(LNJS," . $kdmp->Primary . "), (LNKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Look");
if ($kdmp->Primary == "LK" || $kdmp->Secondary == "LK") {
  print "<br>Look=(LK," . $kdmp->Primary . "), (LK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lounsberry");
if ($kdmp->Primary == "LNSP" || $kdmp->Secondary == "LNSP") {
  print "<br>Lounsberry=(LNSP," . $kdmp->Primary . "), (LNSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lounsbury");
if ($kdmp->Primary == "LNSP" || $kdmp->Secondary == "LNSP") {
  print "<br>Lounsbury=(LNSP," . $kdmp->Primary . "), (LNSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Louthe");
if ($kdmp->Primary == "L0" || $kdmp->Secondary == "LT") {
  print "<br>Louthe=(L0," . $kdmp->Primary . "), (LT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Loveyne");
if ($kdmp->Primary == "LFN" || $kdmp->Secondary == "LFN") {
  print "<br>Loveyne=(LFN," . $kdmp->Primary . "), (LFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lowe");
if ($kdmp->Primary == "L" || $kdmp->Secondary == "L") {
  print "<br>Lowe=(L," . $kdmp->Primary . "), (L," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ludlam");
if ($kdmp->Primary == "LTLM" || $kdmp->Secondary == "LTLM") {
  print "<br>Ludlam=(LTLM," . $kdmp->Primary . "), (LTLM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lumbard");
if ($kdmp->Primary == "LMPR" || $kdmp->Secondary == "LMPR") {
  print "<br>Lumbard=(LMPR," . $kdmp->Primary . "), (LMPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lund");
if ($kdmp->Primary == "LNT" || $kdmp->Secondary == "LNT") {
  print "<br>Lund=(LNT," . $kdmp->Primary . "), (LNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Luno");
if ($kdmp->Primary == "LN" || $kdmp->Secondary == "LN") {
  print "<br>Luno=(LN," . $kdmp->Primary . "), (LN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lutz");
if ($kdmp->Primary == "LTS" || $kdmp->Secondary == "LTS") {
  print "<br>Lutz=(LTS," . $kdmp->Primary . "), (LTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lydia");
if ($kdmp->Primary == "LT" || $kdmp->Secondary == "LT") {
  print "<br>Lydia=(LT," . $kdmp->Primary . "), (LT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lynne");
if ($kdmp->Primary == "LN" || $kdmp->Secondary == "LN") {
  print "<br>Lynne=(LN," . $kdmp->Primary . "), (LN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Lyon");
if ($kdmp->Primary == "LN" || $kdmp->Secondary == "LN") {
  print "<br>Lyon=(LN," . $kdmp->Primary . "), (LN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("MacAlpin");
if ($kdmp->Primary == "MKLP" || $kdmp->Secondary == "MKLP") {
  print "<br>MacAlpin=(MKLP," . $kdmp->Primary . "), (MKLP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("MacBricc");
if ($kdmp->Primary == "MKPR" || $kdmp->Secondary == "MKPR") {
  print "<br>MacBricc=(MKPR," . $kdmp->Primary . "), (MKPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("MacCrinan");
if ($kdmp->Primary == "MKRN" || $kdmp->Secondary == "MKRN") {
  print "<br>MacCrinan=(MKRN," . $kdmp->Primary . "), (MKRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("MacKenneth");
if ($kdmp->Primary == "MKN0" || $kdmp->Secondary == "MKNT") {
  print "<br>MacKenneth=(MKN0," . $kdmp->Primary . "), (MKNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("MacMael nam Bo");
if ($kdmp->Primary == "MKML" || $kdmp->Secondary == "MKML") {
  print "<br>MacMael nam Bo=(MKML," . $kdmp->Primary . "), (MKML," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("MacMurchada");
if ($kdmp->Primary == "MKMR" || $kdmp->Secondary == "MKMR") {
  print "<br>MacMurchada=(MKMR," . $kdmp->Primary . "), (MKMR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Macomber");
if ($kdmp->Primary == "MKMP" || $kdmp->Secondary == "MKMP") {
  print "<br>Macomber=(MKMP," . $kdmp->Primary . "), (MKMP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Macy");
if ($kdmp->Primary == "MS" || $kdmp->Secondary == "MS") {
  print "<br>Macy=(MS," . $kdmp->Primary . "), (MS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Magnus");
if ($kdmp->Primary == "MNS" || $kdmp->Secondary == "MKNS") {
  print "<br>Magnus=(MNS," . $kdmp->Primary . "), (MKNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mahien");
if ($kdmp->Primary == "MHN" || $kdmp->Secondary == "MHN") {
  print "<br>Mahien=(MHN," . $kdmp->Primary . "), (MHN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Malmains");
if ($kdmp->Primary == "MLMN" || $kdmp->Secondary == "MLMN") {
  print "<br>Malmains=(MLMN," . $kdmp->Primary . "), (MLMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Malory");
if ($kdmp->Primary == "MLR" || $kdmp->Secondary == "MLR") {
  print "<br>Malory=(MLR," . $kdmp->Primary . "), (MLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mancinelli");
if ($kdmp->Primary == "MNSN" || $kdmp->Secondary == "MNSN") {
  print "<br>Mancinelli=(MNSN," . $kdmp->Primary . "), (MNSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mancini");
if ($kdmp->Primary == "MNSN" || $kdmp->Secondary == "MNSN") {
  print "<br>Mancini=(MNSN," . $kdmp->Primary . "), (MNSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mann");
if ($kdmp->Primary == "MN" || $kdmp->Secondary == "MN") {
  print "<br>Mann=(MN," . $kdmp->Primary . "), (MN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Manning");
if ($kdmp->Primary == "MNNK" || $kdmp->Secondary == "MNNK") {
  print "<br>Manning=(MNNK," . $kdmp->Primary . "), (MNNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Manter");
if ($kdmp->Primary == "MNTR" || $kdmp->Secondary == "MNTR") {
  print "<br>Manter=(MNTR," . $kdmp->Primary . "), (MNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Marion");
if ($kdmp->Primary == "MRN" || $kdmp->Secondary == "MRN") {
  print "<br>Marion=(MRN," . $kdmp->Primary . "), (MRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Marley");
if ($kdmp->Primary == "MRL" || $kdmp->Secondary == "MRL") {
  print "<br>Marley=(MRL," . $kdmp->Primary . "), (MRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Marmion");
if ($kdmp->Primary == "MRMN" || $kdmp->Secondary == "MRMN") {
  print "<br>Marmion=(MRMN," . $kdmp->Primary . "), (MRMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Marquart");
if ($kdmp->Primary == "MRKR" || $kdmp->Secondary == "MRKR") {
  print "<br>Marquart=(MRKR," . $kdmp->Primary . "), (MRKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Marsh");
if ($kdmp->Primary == "MRX" || $kdmp->Secondary == "MRX") {
  print "<br>Marsh=(MRX," . $kdmp->Primary . "), (MRX," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Marshal");
if ($kdmp->Primary == "MRXL" || $kdmp->Secondary == "MRXL") {
  print "<br>Marshal=(MRXL," . $kdmp->Primary . "), (MRXL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Marshall");
if ($kdmp->Primary == "MRXL" || $kdmp->Secondary == "MRXL") {
  print "<br>Marshall=(MRXL," . $kdmp->Primary . "), (MRXL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Martel");
if ($kdmp->Primary == "MRTL" || $kdmp->Secondary == "MRTL") {
  print "<br>Martel=(MRTL," . $kdmp->Primary . "), (MRTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Martha");
if ($kdmp->Primary == "MR0" || $kdmp->Secondary == "MRT") {
  print "<br>Martha=(MR0," . $kdmp->Primary . "), (MRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Martin");
if ($kdmp->Primary == "MRTN" || $kdmp->Secondary == "MRTN") {
  print "<br>Martin=(MRTN," . $kdmp->Primary . "), (MRTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Marturano");
if ($kdmp->Primary == "MRTR" || $kdmp->Secondary == "MRTR") {
  print "<br>Marturano=(MRTR," . $kdmp->Primary . "), (MRTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Marvin");
if ($kdmp->Primary == "MRFN" || $kdmp->Secondary == "MRFN") {
  print "<br>Marvin=(MRFN," . $kdmp->Primary . "), (MRFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mary");
if ($kdmp->Primary == "MR" || $kdmp->Secondary == "MR") {
  print "<br>Mary=(MR," . $kdmp->Primary . "), (MR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mason");
if ($kdmp->Primary == "MSN" || $kdmp->Secondary == "MSN") {
  print "<br>Mason=(MSN," . $kdmp->Primary . "), (MSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Maxwell");
if ($kdmp->Primary == "MKSL" || $kdmp->Secondary == "MKSL") {
  print "<br>Maxwell=(MKSL," . $kdmp->Primary . "), (MKSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mayhew");
if ($kdmp->Primary == "MH" || $kdmp->Secondary == "MHF") {
  print "<br>Mayhew=(MH," . $kdmp->Primary . "), (MHF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("McAllaster");
if ($kdmp->Primary == "MKLS" || $kdmp->Secondary == "MKLS") {
  print "<br>McAllaster=(MKLS," . $kdmp->Primary . "), (MKLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("McAllister");
if ($kdmp->Primary == "MKLS" || $kdmp->Secondary == "MKLS") {
  print "<br>McAllister=(MKLS," . $kdmp->Primary . "), (MKLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("McConnell");
if ($kdmp->Primary == "MKNL" || $kdmp->Secondary == "MKNL") {
  print "<br>McConnell=(MKNL," . $kdmp->Primary . "), (MKNL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("McFarland");
if ($kdmp->Primary == "MKFR" || $kdmp->Secondary == "MKFR") {
  print "<br>McFarland=(MKFR," . $kdmp->Primary . "), (MKFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("McIlroy");
if ($kdmp->Primary == "MSLR" || $kdmp->Secondary == "MSLR") {
  print "<br>McIlroy=(MSLR," . $kdmp->Primary . "), (MSLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("McNair");
if ($kdmp->Primary == "MKNR" || $kdmp->Secondary == "MKNR") {
  print "<br>McNair=(MKNR," . $kdmp->Primary . "), (MKNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("McNair-Landry");
if ($kdmp->Primary == "MKNR" || $kdmp->Secondary == "MKNR") {
  print "<br>McNair-Landry=(MKNR," . $kdmp->Primary . "), (MKNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("McRaven");
if ($kdmp->Primary == "MKRF" || $kdmp->Secondary == "MKRF") {
  print "<br>McRaven=(MKRF," . $kdmp->Primary . "), (MKRF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mead");
if ($kdmp->Primary == "MT" || $kdmp->Secondary == "MT") {
  print "<br>Mead=(MT," . $kdmp->Primary . "), (MT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Meade");
if ($kdmp->Primary == "MT" || $kdmp->Secondary == "MT") {
  print "<br>Meade=(MT," . $kdmp->Primary . "), (MT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Meck");
if ($kdmp->Primary == "MK" || $kdmp->Secondary == "MK") {
  print "<br>Meck=(MK," . $kdmp->Primary . "), (MK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Melton");
if ($kdmp->Primary == "MLTN" || $kdmp->Secondary == "MLTN") {
  print "<br>Melton=(MLTN," . $kdmp->Primary . "), (MLTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mendenhall");
if ($kdmp->Primary == "MNTN" || $kdmp->Secondary == "MNTN") {
  print "<br>Mendenhall=(MNTN," . $kdmp->Primary . "), (MNTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mering");
if ($kdmp->Primary == "MRNK" || $kdmp->Secondary == "MRNK") {
  print "<br>Mering=(MRNK," . $kdmp->Primary . "), (MRNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Merrick");
if ($kdmp->Primary == "MRK" || $kdmp->Secondary == "MRK") {
  print "<br>Merrick=(MRK," . $kdmp->Primary . "), (MRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Merry");
if ($kdmp->Primary == "MR" || $kdmp->Secondary == "MR") {
  print "<br>Merry=(MR," . $kdmp->Primary . "), (MR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mighill");
if ($kdmp->Primary == "ML" || $kdmp->Secondary == "ML") {
  print "<br>Mighill=(ML," . $kdmp->Primary . "), (ML," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Miller");
if ($kdmp->Primary == "MLR" || $kdmp->Secondary == "MLR") {
  print "<br>Miller=(MLR," . $kdmp->Primary . "), (MLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Milton");
if ($kdmp->Primary == "MLTN" || $kdmp->Secondary == "MLTN") {
  print "<br>Milton=(MLTN," . $kdmp->Primary . "), (MLTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mohun");
if ($kdmp->Primary == "MHN" || $kdmp->Secondary == "MHN") {
  print "<br>Mohun=(MHN," . $kdmp->Primary . "), (MHN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Montague");
if ($kdmp->Primary == "MNTK" || $kdmp->Secondary == "MNTK") {
  print "<br>Montague=(MNTK," . $kdmp->Primary . "), (MNTK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Montboucher");
if ($kdmp->Primary == "MNTP" || $kdmp->Secondary == "MNTP") {
  print "<br>Montboucher=(MNTP," . $kdmp->Primary . "), (MNTP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Moore");
if ($kdmp->Primary == "MR" || $kdmp->Secondary == "MR") {
  print "<br>Moore=(MR," . $kdmp->Primary . "), (MR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Morrel");
if ($kdmp->Primary == "MRL" || $kdmp->Secondary == "MRL") {
  print "<br>Morrel=(MRL," . $kdmp->Primary . "), (MRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Morrill");
if ($kdmp->Primary == "MRL" || $kdmp->Secondary == "MRL") {
  print "<br>Morrill=(MRL," . $kdmp->Primary . "), (MRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Morris");
if ($kdmp->Primary == "MRS" || $kdmp->Secondary == "MRS") {
  print "<br>Morris=(MRS," . $kdmp->Primary . "), (MRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Morton");
if ($kdmp->Primary == "MRTN" || $kdmp->Secondary == "MRTN") {
  print "<br>Morton=(MRTN," . $kdmp->Primary . "), (MRTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Moton");
if ($kdmp->Primary == "MTN" || $kdmp->Secondary == "MTN") {
  print "<br>Moton=(MTN," . $kdmp->Primary . "), (MTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Muir");
if ($kdmp->Primary == "MR" || $kdmp->Secondary == "MR") {
  print "<br>Muir=(MR," . $kdmp->Primary . "), (MR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mulferd");
if ($kdmp->Primary == "MLFR" || $kdmp->Secondary == "MLFR") {
  print "<br>Mulferd=(MLFR," . $kdmp->Primary . "), (MLFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mullins");
if ($kdmp->Primary == "MLNS" || $kdmp->Secondary == "MLNS") {
  print "<br>Mullins=(MLNS," . $kdmp->Primary . "), (MLNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Mulso");
if ($kdmp->Primary == "MLS" || $kdmp->Secondary == "MLS") {
  print "<br>Mulso=(MLS," . $kdmp->Primary . "), (MLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Munger");
if ($kdmp->Primary == "MNKR" || $kdmp->Secondary == "MNJR") {
  print "<br>Munger=(MNKR," . $kdmp->Primary . "), (MNJR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Munt");
if ($kdmp->Primary == "MNT" || $kdmp->Secondary == "MNT") {
  print "<br>Munt=(MNT," . $kdmp->Primary . "), (MNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Murchad");
if ($kdmp->Primary == "MRXT" || $kdmp->Secondary == "MRKT") {
  print "<br>Murchad=(MRXT," . $kdmp->Primary . "), (MRKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Murdock");
if ($kdmp->Primary == "MRTK" || $kdmp->Secondary == "MRTK") {
  print "<br>Murdock=(MRTK," . $kdmp->Primary . "), (MRTK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Murray");
if ($kdmp->Primary == "MR" || $kdmp->Secondary == "MR") {
  print "<br>Murray=(MR," . $kdmp->Primary . "), (MR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Muskett");
if ($kdmp->Primary == "MSKT" || $kdmp->Secondary == "MSKT") {
  print "<br>Muskett=(MSKT," . $kdmp->Primary . "), (MSKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Myers");
if ($kdmp->Primary == "MRS" || $kdmp->Secondary == "MRS") {
  print "<br>Myers=(MRS," . $kdmp->Primary . "), (MRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Myrick");
if ($kdmp->Primary == "MRK" || $kdmp->Secondary == "MRK") {
  print "<br>Myrick=(MRK," . $kdmp->Primary . "), (MRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("NORRIS");
if ($kdmp->Primary == "NRS" || $kdmp->Secondary == "NRS") {
  print "<br>NORRIS=(NRS," . $kdmp->Primary . "), (NRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Nayle");
if ($kdmp->Primary == "NL" || $kdmp->Secondary == "NL") {
  print "<br>Nayle=(NL," . $kdmp->Primary . "), (NL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Newcomb");
if ($kdmp->Primary == "NKMP" || $kdmp->Secondary == "NKMP") {
  print "<br>Newcomb=(NKMP," . $kdmp->Primary . "), (NKMP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Newcomb(e)");
if ($kdmp->Primary == "NKMP" || $kdmp->Secondary == "NKMP") {
  print "<br>Newcomb(e)=(NKMP," . $kdmp->Primary . "), (NKMP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Newkirk");
if ($kdmp->Primary == "NKRK" || $kdmp->Secondary == "NKRK") {
  print "<br>Newkirk=(NKRK," . $kdmp->Primary . "), (NKRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Newton");
if ($kdmp->Primary == "NTN" || $kdmp->Secondary == "NTN") {
  print "<br>Newton=(NTN," . $kdmp->Primary . "), (NTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Niles");
if ($kdmp->Primary == "NLS" || $kdmp->Secondary == "NLS") {
  print "<br>Niles=(NLS," . $kdmp->Primary . "), (NLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Noble");
if ($kdmp->Primary == "NPL" || $kdmp->Secondary == "NPL") {
  print "<br>Noble=(NPL," . $kdmp->Primary . "), (NPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Noel");
if ($kdmp->Primary == "NL" || $kdmp->Secondary == "NL") {
  print "<br>Noel=(NL," . $kdmp->Primary . "), (NL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Northend");
if ($kdmp->Primary == "NR0N" || $kdmp->Secondary == "NRTN") {
  print "<br>Northend=(NR0N," . $kdmp->Primary . "), (NRTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Norton");
if ($kdmp->Primary == "NRTN" || $kdmp->Secondary == "NRTN") {
  print "<br>Norton=(NRTN," . $kdmp->Primary . "), (NRTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Nutter");
if ($kdmp->Primary == "NTR" || $kdmp->Secondary == "NTR") {
  print "<br>Nutter=(NTR," . $kdmp->Primary . "), (NTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Odding");
if ($kdmp->Primary == "ATNK" || $kdmp->Secondary == "ATNK") {
  print "<br>Odding=(ATNK," . $kdmp->Primary . "), (ATNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Odenbaugh");
if ($kdmp->Primary == "ATNP" || $kdmp->Secondary == "ATNP") {
  print "<br>Odenbaugh=(ATNP," . $kdmp->Primary . "), (ATNP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ogborn");
if ($kdmp->Primary == "AKPR" || $kdmp->Secondary == "AKPR") {
  print "<br>Ogborn=(AKPR," . $kdmp->Primary . "), (AKPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Oppenheimer");
if ($kdmp->Primary == "APNM" || $kdmp->Secondary == "APNM") {
  print "<br>Oppenheimer=(APNM," . $kdmp->Primary . "), (APNM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Otis");
if ($kdmp->Primary == "ATS" || $kdmp->Secondary == "ATS") {
  print "<br>Otis=(ATS," . $kdmp->Primary . "), (ATS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Oviatt");
if ($kdmp->Primary == "AFT" || $kdmp->Secondary == "AFT") {
  print "<br>Oviatt=(AFT," . $kdmp->Primary . "), (AFT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("PRUST?");
if ($kdmp->Primary == "PRST" || $kdmp->Secondary == "PRST") {
  print "<br>PRUST?=(PRST," . $kdmp->Primary . "), (PRST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Paddock");
if ($kdmp->Primary == "PTK" || $kdmp->Secondary == "PTK") {
  print "<br>Paddock=(PTK," . $kdmp->Primary . "), (PTK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Page");
if ($kdmp->Primary == "PJ" || $kdmp->Secondary == "PK") {
  print "<br>Page=(PJ," . $kdmp->Primary . "), (PK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Paine");
if ($kdmp->Primary == "PN" || $kdmp->Secondary == "PN") {
  print "<br>Paine=(PN," . $kdmp->Primary . "), (PN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Paist");
if ($kdmp->Primary == "PST" || $kdmp->Secondary == "PST") {
  print "<br>Paist=(PST," . $kdmp->Primary . "), (PST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Palmer");
if ($kdmp->Primary == "PLMR" || $kdmp->Secondary == "PLMR") {
  print "<br>Palmer=(PLMR," . $kdmp->Primary . "), (PLMR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Park");
if ($kdmp->Primary == "PRK" || $kdmp->Secondary == "PRK") {
  print "<br>Park=(PRK," . $kdmp->Primary . "), (PRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Parker");
if ($kdmp->Primary == "PRKR" || $kdmp->Secondary == "PRKR") {
  print "<br>Parker=(PRKR," . $kdmp->Primary . "), (PRKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Parkhurst");
if ($kdmp->Primary == "PRKR" || $kdmp->Secondary == "PRKR") {
  print "<br>Parkhurst=(PRKR," . $kdmp->Primary . "), (PRKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Parrat");
if ($kdmp->Primary == "PRT" || $kdmp->Secondary == "PRT") {
  print "<br>Parrat=(PRT," . $kdmp->Primary . "), (PRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Parsons");
if ($kdmp->Primary == "PRSN" || $kdmp->Secondary == "PRSN") {
  print "<br>Parsons=(PRSN," . $kdmp->Primary . "), (PRSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Partridge");
if ($kdmp->Primary == "PRTR" || $kdmp->Secondary == "PRTR") {
  print "<br>Partridge=(PRTR," . $kdmp->Primary . "), (PRTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pashley");
if ($kdmp->Primary == "PXL" || $kdmp->Secondary == "PXL") {
  print "<br>Pashley=(PXL," . $kdmp->Primary . "), (PXL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pasley");
if ($kdmp->Primary == "PSL" || $kdmp->Secondary == "PSL") {
  print "<br>Pasley=(PSL," . $kdmp->Primary . "), (PSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Patrick");
if ($kdmp->Primary == "PTRK" || $kdmp->Secondary == "PTRK") {
  print "<br>Patrick=(PTRK," . $kdmp->Primary . "), (PTRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pattee");
if ($kdmp->Primary == "PT" || $kdmp->Secondary == "PT") {
  print "<br>Pattee=(PT," . $kdmp->Primary . "), (PT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Patten");
if ($kdmp->Primary == "PTN" || $kdmp->Secondary == "PTN") {
  print "<br>Patten=(PTN," . $kdmp->Primary . "), (PTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pawley");
if ($kdmp->Primary == "PL" || $kdmp->Secondary == "PL") {
  print "<br>Pawley=(PL," . $kdmp->Primary . "), (PL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Payne");
if ($kdmp->Primary == "PN" || $kdmp->Secondary == "PN") {
  print "<br>Payne=(PN," . $kdmp->Primary . "), (PN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Peabody");
if ($kdmp->Primary == "PPT" || $kdmp->Secondary == "PPT") {
  print "<br>Peabody=(PPT," . $kdmp->Primary . "), (PPT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Peake");
if ($kdmp->Primary == "PK" || $kdmp->Secondary == "PK") {
  print "<br>Peake=(PK," . $kdmp->Primary . "), (PK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pearson");
if ($kdmp->Primary == "PRSN" || $kdmp->Secondary == "PRSN") {
  print "<br>Pearson=(PRSN," . $kdmp->Primary . "), (PRSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Peat");
if ($kdmp->Primary == "PT" || $kdmp->Secondary == "PT") {
  print "<br>Peat=(PT," . $kdmp->Primary . "), (PT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pedersen");
if ($kdmp->Primary == "PTRS" || $kdmp->Secondary == "PTRS") {
  print "<br>Pedersen=(PTRS," . $kdmp->Primary . "), (PTRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Percy");
if ($kdmp->Primary == "PRS" || $kdmp->Secondary == "PRS") {
  print "<br>Percy=(PRS," . $kdmp->Primary . "), (PRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Perkins");
if ($kdmp->Primary == "PRKN" || $kdmp->Secondary == "PRKN") {
  print "<br>Perkins=(PRKN," . $kdmp->Primary . "), (PRKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Perrine");
if ($kdmp->Primary == "PRN" || $kdmp->Secondary == "PRN") {
  print "<br>Perrine=(PRN," . $kdmp->Primary . "), (PRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Perry");
if ($kdmp->Primary == "PR" || $kdmp->Secondary == "PR") {
  print "<br>Perry=(PR," . $kdmp->Primary . "), (PR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Peson");
if ($kdmp->Primary == "PSN" || $kdmp->Secondary == "PSN") {
  print "<br>Peson=(PSN," . $kdmp->Primary . "), (PSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Peterson");
if ($kdmp->Primary == "PTRS" || $kdmp->Secondary == "PTRS") {
  print "<br>Peterson=(PTRS," . $kdmp->Primary . "), (PTRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Peyton");
if ($kdmp->Primary == "PTN" || $kdmp->Secondary == "PTN") {
  print "<br>Peyton=(PTN," . $kdmp->Primary . "), (PTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Phinney");
if ($kdmp->Primary == "FN" || $kdmp->Secondary == "FN") {
  print "<br>Phinney=(FN," . $kdmp->Primary . "), (FN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pickard");
if ($kdmp->Primary == "PKRT" || $kdmp->Secondary == "PKRT") {
  print "<br>Pickard=(PKRT," . $kdmp->Primary . "), (PKRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pierce");
if ($kdmp->Primary == "PRS" || $kdmp->Secondary == "PRS") {
  print "<br>Pierce=(PRS," . $kdmp->Primary . "), (PRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pierrepont");
if ($kdmp->Primary == "PRPN" || $kdmp->Secondary == "PRPN") {
  print "<br>Pierrepont=(PRPN," . $kdmp->Primary . "), (PRPN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pike");
if ($kdmp->Primary == "PK" || $kdmp->Secondary == "PK") {
  print "<br>Pike=(PK," . $kdmp->Primary . "), (PK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pinkham");
if ($kdmp->Primary == "PNKM" || $kdmp->Secondary == "PNKM") {
  print "<br>Pinkham=(PNKM," . $kdmp->Primary . "), (PNKM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pitman");
if ($kdmp->Primary == "PTMN" || $kdmp->Secondary == "PTMN") {
  print "<br>Pitman=(PTMN," . $kdmp->Primary . "), (PTMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pitt");
if ($kdmp->Primary == "PT" || $kdmp->Secondary == "PT") {
  print "<br>Pitt=(PT," . $kdmp->Primary . "), (PT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pitts");
if ($kdmp->Primary == "PTS" || $kdmp->Secondary == "PTS") {
  print "<br>Pitts=(PTS," . $kdmp->Primary . "), (PTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Plantagenet");
if ($kdmp->Primary == "PLNT" || $kdmp->Secondary == "PLNT") {
  print "<br>Plantagenet=(PLNT," . $kdmp->Primary . "), (PLNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Platt");
if ($kdmp->Primary == "PLT" || $kdmp->Secondary == "PLT") {
  print "<br>Platt=(PLT," . $kdmp->Primary . "), (PLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Platts");
if ($kdmp->Primary == "PLTS" || $kdmp->Secondary == "PLTS") {
  print "<br>Platts=(PLTS," . $kdmp->Primary . "), (PLTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pleis");
if ($kdmp->Primary == "PLS" || $kdmp->Secondary == "PLS") {
  print "<br>Pleis=(PLS," . $kdmp->Primary . "), (PLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pleiss");
if ($kdmp->Primary == "PLS" || $kdmp->Secondary == "PLS") {
  print "<br>Pleiss=(PLS," . $kdmp->Primary . "), (PLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Plisko");
if ($kdmp->Primary == "PLSK" || $kdmp->Secondary == "PLSK") {
  print "<br>Plisko=(PLSK," . $kdmp->Primary . "), (PLSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pliskovitch");
if ($kdmp->Primary == "PLSK" || $kdmp->Secondary == "PLSK") {
  print "<br>Pliskovitch=(PLSK," . $kdmp->Primary . "), (PLSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Plum");
if ($kdmp->Primary == "PLM" || $kdmp->Secondary == "PLM") {
  print "<br>Plum=(PLM," . $kdmp->Primary . "), (PLM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Plume");
if ($kdmp->Primary == "PLM" || $kdmp->Secondary == "PLM") {
  print "<br>Plume=(PLM," . $kdmp->Primary . "), (PLM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Poitou");
if ($kdmp->Primary == "PT" || $kdmp->Secondary == "PT") {
  print "<br>Poitou=(PT," . $kdmp->Primary . "), (PT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pomeroy");
if ($kdmp->Primary == "PMR" || $kdmp->Secondary == "PMR") {
  print "<br>Pomeroy=(PMR," . $kdmp->Primary . "), (PMR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Poretiers");
if ($kdmp->Primary == "PRTR" || $kdmp->Secondary == "PRTR") {
  print "<br>Poretiers=(PRTR," . $kdmp->Primary . "), (PRTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pote");
if ($kdmp->Primary == "PT" || $kdmp->Secondary == "PT") {
  print "<br>Pote=(PT," . $kdmp->Primary . "), (PT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Potter");
if ($kdmp->Primary == "PTR" || $kdmp->Secondary == "PTR") {
  print "<br>Potter=(PTR," . $kdmp->Primary . "), (PTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Potts");
if ($kdmp->Primary == "PTS" || $kdmp->Secondary == "PTS") {
  print "<br>Potts=(PTS," . $kdmp->Primary . "), (PTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Powell");
if ($kdmp->Primary == "PL" || $kdmp->Secondary == "PL") {
  print "<br>Powell=(PL," . $kdmp->Primary . "), (PL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pratt");
if ($kdmp->Primary == "PRT" || $kdmp->Secondary == "PRT") {
  print "<br>Pratt=(PRT," . $kdmp->Primary . "), (PRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Presbury");
if ($kdmp->Primary == "PRSP" || $kdmp->Secondary == "PRSP") {
  print "<br>Presbury=(PRSP," . $kdmp->Primary . "), (PRSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Priest");
if ($kdmp->Primary == "PRST" || $kdmp->Secondary == "PRST") {
  print "<br>Priest=(PRST," . $kdmp->Primary . "), (PRST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Prindle");
if ($kdmp->Primary == "PRNT" || $kdmp->Secondary == "PRNT") {
  print "<br>Prindle=(PRNT," . $kdmp->Primary . "), (PRNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Prior");
if ($kdmp->Primary == "PRR" || $kdmp->Secondary == "PRR") {
  print "<br>Prior=(PRR," . $kdmp->Primary . "), (PRR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Profumo");
if ($kdmp->Primary == "PRFM" || $kdmp->Secondary == "PRFM") {
  print "<br>Profumo=(PRFM," . $kdmp->Primary . "), (PRFM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Purdy");
if ($kdmp->Primary == "PRT" || $kdmp->Secondary == "PRT") {
  print "<br>Purdy=(PRT," . $kdmp->Primary . "), (PRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Purefoy");
if ($kdmp->Primary == "PRF" || $kdmp->Secondary == "PRF") {
  print "<br>Purefoy=(PRF," . $kdmp->Primary . "), (PRF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Pury");
if ($kdmp->Primary == "PR" || $kdmp->Secondary == "PR") {
  print "<br>Pury=(PR," . $kdmp->Primary . "), (PR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Quinter");
if ($kdmp->Primary == "KNTR" || $kdmp->Secondary == "KNTR") {
  print "<br>Quinter=(KNTR," . $kdmp->Primary . "), (KNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Rachel");
if ($kdmp->Primary == "RXL" || $kdmp->Secondary == "RKL") {
  print "<br>Rachel=(RXL," . $kdmp->Primary . "), (RKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Rand");
if ($kdmp->Primary == "RNT" || $kdmp->Secondary == "RNT") {
  print "<br>Rand=(RNT," . $kdmp->Primary . "), (RNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Rankin");
if ($kdmp->Primary == "RNKN" || $kdmp->Secondary == "RNKN") {
  print "<br>Rankin=(RNKN," . $kdmp->Primary . "), (RNKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ravenscroft");
if ($kdmp->Primary == "RFNS" || $kdmp->Secondary == "RFNS") {
  print "<br>Ravenscroft=(RFNS," . $kdmp->Primary . "), (RFNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Raynsford");
if ($kdmp->Primary == "RNSF" || $kdmp->Secondary == "RNSF") {
  print "<br>Raynsford=(RNSF," . $kdmp->Primary . "), (RNSF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Reakirt");
if ($kdmp->Primary == "RKRT" || $kdmp->Secondary == "RKRT") {
  print "<br>Reakirt=(RKRT," . $kdmp->Primary . "), (RKRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Reaves");
if ($kdmp->Primary == "RFS" || $kdmp->Secondary == "RFS") {
  print "<br>Reaves=(RFS," . $kdmp->Primary . "), (RFS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Reeves");
if ($kdmp->Primary == "RFS" || $kdmp->Secondary == "RFS") {
  print "<br>Reeves=(RFS," . $kdmp->Primary . "), (RFS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Reichert");
if ($kdmp->Primary == "RXRT" || $kdmp->Secondary == "RKRT") {
  print "<br>Reichert=(RXRT," . $kdmp->Primary . "), (RKRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Remmele");
if ($kdmp->Primary == "RML" || $kdmp->Secondary == "RML") {
  print "<br>Remmele=(RML," . $kdmp->Primary . "), (RML," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Reynolds");
if ($kdmp->Primary == "RNLT" || $kdmp->Secondary == "RNLT") {
  print "<br>Reynolds=(RNLT," . $kdmp->Primary . "), (RNLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Rhodes");
if ($kdmp->Primary == "RTS" || $kdmp->Secondary == "RTS") {
  print "<br>Rhodes=(RTS," . $kdmp->Primary . "), (RTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Richards");
if ($kdmp->Primary == "RXRT" || $kdmp->Secondary == "RKRT") {
  print "<br>Richards=(RXRT," . $kdmp->Primary . "), (RKRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Richardson");
if ($kdmp->Primary == "RXRT" || $kdmp->Secondary == "RKRT") {
  print "<br>Richardson=(RXRT," . $kdmp->Primary . "), (RKRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ring");
if ($kdmp->Primary == "RNK" || $kdmp->Secondary == "RNK") {
  print "<br>Ring=(RNK," . $kdmp->Primary . "), (RNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Roberts");
if ($kdmp->Primary == "RPRT" || $kdmp->Secondary == "RPRT") {
  print "<br>Roberts=(RPRT," . $kdmp->Primary . "), (RPRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Robertson");
if ($kdmp->Primary == "RPRT" || $kdmp->Secondary == "RPRT") {
  print "<br>Robertson=(RPRT," . $kdmp->Primary . "), (RPRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Robson");
if ($kdmp->Primary == "RPSN" || $kdmp->Secondary == "RPSN") {
  print "<br>Robson=(RPSN," . $kdmp->Primary . "), (RPSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Rodie");
if ($kdmp->Primary == "RT" || $kdmp->Secondary == "RT") {
  print "<br>Rodie=(RT," . $kdmp->Primary . "), (RT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Rody");
if ($kdmp->Primary == "RT" || $kdmp->Secondary == "RT") {
  print "<br>Rody=(RT," . $kdmp->Primary . "), (RT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Rogers");
if ($kdmp->Primary == "RKRS" || $kdmp->Secondary == "RJRS") {
  print "<br>Rogers=(RKRS," . $kdmp->Primary . "), (RJRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ross");
if ($kdmp->Primary == "RS" || $kdmp->Secondary == "RS") {
  print "<br>Ross=(RS," . $kdmp->Primary . "), (RS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Rosslevin");
if ($kdmp->Primary == "RSLF" || $kdmp->Secondary == "RSLF") {
  print "<br>Rosslevin=(RSLF," . $kdmp->Primary . "), (RSLF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Rowland");
if ($kdmp->Primary == "RLNT" || $kdmp->Secondary == "RLNT") {
  print "<br>Rowland=(RLNT," . $kdmp->Primary . "), (RLNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ruehl");
if ($kdmp->Primary == "RL" || $kdmp->Secondary == "RL") {
  print "<br>Ruehl=(RL," . $kdmp->Primary . "), (RL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Russell");
if ($kdmp->Primary == "RSL" || $kdmp->Secondary == "RSL") {
  print "<br>Russell=(RSL," . $kdmp->Primary . "), (RSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ruth");
if ($kdmp->Primary == "R0" || $kdmp->Secondary == "RT") {
  print "<br>Ruth=(R0," . $kdmp->Primary . "), (RT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ryan");
if ($kdmp->Primary == "RN" || $kdmp->Secondary == "RN") {
  print "<br>Ryan=(RN," . $kdmp->Primary . "), (RN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Rysse");
if ($kdmp->Primary == "RS" || $kdmp->Secondary == "RS") {
  print "<br>Rysse=(RS," . $kdmp->Primary . "), (RS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sadler");
if ($kdmp->Primary == "STLR" || $kdmp->Secondary == "STLR") {
  print "<br>Sadler=(STLR," . $kdmp->Primary . "), (STLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Salmon");
if ($kdmp->Primary == "SLMN" || $kdmp->Secondary == "SLMN") {
  print "<br>Salmon=(SLMN," . $kdmp->Primary . "), (SLMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Salter");
if ($kdmp->Primary == "SLTR" || $kdmp->Secondary == "SLTR") {
  print "<br>Salter=(SLTR," . $kdmp->Primary . "), (SLTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Salvatore");
if ($kdmp->Primary == "SLFT" || $kdmp->Secondary == "SLFT") {
  print "<br>Salvatore=(SLFT," . $kdmp->Primary . "), (SLFT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sanders");
if ($kdmp->Primary == "SNTR" || $kdmp->Secondary == "SNTR") {
  print "<br>Sanders=(SNTR," . $kdmp->Primary . "), (SNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sands");
if ($kdmp->Primary == "SNTS" || $kdmp->Secondary == "SNTS") {
  print "<br>Sands=(SNTS," . $kdmp->Primary . "), (SNTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sanford");
if ($kdmp->Primary == "SNFR" || $kdmp->Secondary == "SNFR") {
  print "<br>Sanford=(SNFR," . $kdmp->Primary . "), (SNFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sanger");
if ($kdmp->Primary == "SNKR" || $kdmp->Secondary == "SNJR") {
  print "<br>Sanger=(SNKR," . $kdmp->Primary . "), (SNJR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sargent");
if ($kdmp->Primary == "SRJN" || $kdmp->Secondary == "SRKN") {
  print "<br>Sargent=(SRJN," . $kdmp->Primary . "), (SRKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Saunders");
if ($kdmp->Primary == "SNTR" || $kdmp->Secondary == "SNTR") {
  print "<br>Saunders=(SNTR," . $kdmp->Primary . "), (SNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Schilling");
if ($kdmp->Primary == "XLNK" || $kdmp->Secondary == "XLNK") {
  print "<br>Schilling=(XLNK," . $kdmp->Primary . "), (XLNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Schlegel");
if ($kdmp->Primary == "XLKL" || $kdmp->Secondary == "SLKL") {
  print "<br>Schlegel=(XLKL," . $kdmp->Primary . "), (SLKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Scott");
if ($kdmp->Primary == "SKT" || $kdmp->Secondary == "SKT") {
  print "<br>Scott=(SKT," . $kdmp->Primary . "), (SKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sears");
if ($kdmp->Primary == "SRS" || $kdmp->Secondary == "SRS") {
  print "<br>Sears=(SRS," . $kdmp->Primary . "), (SRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Segersall");
if ($kdmp->Primary == "SJRS" || $kdmp->Secondary == "SKRS") {
  print "<br>Segersall=(SJRS," . $kdmp->Primary . "), (SKRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Senecal");
if ($kdmp->Primary == "SNKL" || $kdmp->Secondary == "SNKL") {
  print "<br>Senecal=(SNKL," . $kdmp->Primary . "), (SNKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sergeaux");
if ($kdmp->Primary == "SRJ" || $kdmp->Secondary == "SRK") {
  print "<br>Sergeaux=(SRJ," . $kdmp->Primary . "), (SRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Severance");
if ($kdmp->Primary == "SFRN" || $kdmp->Secondary == "SFRN") {
  print "<br>Severance=(SFRN," . $kdmp->Primary . "), (SFRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sharp");
if ($kdmp->Primary == "XRP" || $kdmp->Secondary == "XRP") {
  print "<br>Sharp=(XRP," . $kdmp->Primary . "), (XRP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sharpe");
if ($kdmp->Primary == "XRP" || $kdmp->Secondary == "XRP") {
  print "<br>Sharpe=(XRP," . $kdmp->Primary . "), (XRP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sharply");
if ($kdmp->Primary == "XRPL" || $kdmp->Secondary == "XRPL") {
  print "<br>Sharply=(XRPL," . $kdmp->Primary . "), (XRPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shatswell");
if ($kdmp->Primary == "XTSL" || $kdmp->Secondary == "XTSL") {
  print "<br>Shatswell=(XTSL," . $kdmp->Primary . "), (XTSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shattack");
if ($kdmp->Primary == "XTK" || $kdmp->Secondary == "XTK") {
  print "<br>Shattack=(XTK," . $kdmp->Primary . "), (XTK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shattock");
if ($kdmp->Primary == "XTK" || $kdmp->Secondary == "XTK") {
  print "<br>Shattock=(XTK," . $kdmp->Primary . "), (XTK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shattuck");
if ($kdmp->Primary == "XTK" || $kdmp->Secondary == "XTK") {
  print "<br>Shattuck=(XTK," . $kdmp->Primary . "), (XTK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shaw");
if ($kdmp->Primary == "X" || $kdmp->Secondary == "XF") {
  print "<br>Shaw=(X," . $kdmp->Primary . "), (XF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sheldon");
if ($kdmp->Primary == "XLTN" || $kdmp->Secondary == "XLTN") {
  print "<br>Sheldon=(XLTN," . $kdmp->Primary . "), (XLTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sherman");
if ($kdmp->Primary == "XRMN" || $kdmp->Secondary == "XRMN") {
  print "<br>Sherman=(XRMN," . $kdmp->Primary . "), (XRMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shinn");
if ($kdmp->Primary == "XN" || $kdmp->Secondary == "XN") {
  print "<br>Shinn=(XN," . $kdmp->Primary . "), (XN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shirford");
if ($kdmp->Primary == "XRFR" || $kdmp->Secondary == "XRFR") {
  print "<br>Shirford=(XRFR," . $kdmp->Primary . "), (XRFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shirley");
if ($kdmp->Primary == "XRL" || $kdmp->Secondary == "XRL") {
  print "<br>Shirley=(XRL," . $kdmp->Primary . "), (XRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shively");
if ($kdmp->Primary == "XFL" || $kdmp->Secondary == "XFL") {
  print "<br>Shively=(XFL," . $kdmp->Primary . "), (XFL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shoemaker");
if ($kdmp->Primary == "XMKR" || $kdmp->Secondary == "XMKR") {
  print "<br>Shoemaker=(XMKR," . $kdmp->Primary . "), (XMKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Short");
if ($kdmp->Primary == "XRT" || $kdmp->Secondary == "XRT") {
  print "<br>Short=(XRT," . $kdmp->Primary . "), (XRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shotwell");
if ($kdmp->Primary == "XTL" || $kdmp->Secondary == "XTL") {
  print "<br>Shotwell=(XTL," . $kdmp->Primary . "), (XTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Shute");
if ($kdmp->Primary == "XT" || $kdmp->Secondary == "XT") {
  print "<br>Shute=(XT," . $kdmp->Primary . "), (XT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sibley");
if ($kdmp->Primary == "SPL" || $kdmp->Secondary == "SPL") {
  print "<br>Sibley=(SPL," . $kdmp->Primary . "), (SPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Silver");
if ($kdmp->Primary == "SLFR" || $kdmp->Secondary == "SLFR") {
  print "<br>Silver=(SLFR," . $kdmp->Primary . "), (SLFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Simes");
if ($kdmp->Primary == "SMS" || $kdmp->Secondary == "SMS") {
  print "<br>Simes=(SMS," . $kdmp->Primary . "), (SMS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sinken");
if ($kdmp->Primary == "SNKN" || $kdmp->Secondary == "SNKN") {
  print "<br>Sinken=(SNKN," . $kdmp->Primary . "), (SNKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sinn");
if ($kdmp->Primary == "SN" || $kdmp->Secondary == "SN") {
  print "<br>Sinn=(SN," . $kdmp->Primary . "), (SN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Skelton");
if ($kdmp->Primary == "SKLT" || $kdmp->Secondary == "SKLT") {
  print "<br>Skelton=(SKLT," . $kdmp->Primary . "), (SKLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Skiffe");
if ($kdmp->Primary == "SKF" || $kdmp->Secondary == "SKF") {
  print "<br>Skiffe=(SKF," . $kdmp->Primary . "), (SKF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Skotkonung");
if ($kdmp->Primary == "SKTK" || $kdmp->Secondary == "SKTK") {
  print "<br>Skotkonung=(SKTK," . $kdmp->Primary . "), (SKTK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Slade");
if ($kdmp->Primary == "SLT" || $kdmp->Secondary == "XLT") {
  print "<br>Slade=(SLT," . $kdmp->Primary . "), (XLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Slye");
if ($kdmp->Primary == "SL" || $kdmp->Secondary == "XL") {
  print "<br>Slye=(SL," . $kdmp->Primary . "), (XL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Smedley");
if ($kdmp->Primary == "SMTL" || $kdmp->Secondary == "XMTL") {
  print "<br>Smedley=(SMTL," . $kdmp->Primary . "), (XMTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Smith");
if ($kdmp->Primary == "SM0" || $kdmp->Secondary == "XMT") {
  print "<br>Smith=(SM0," . $kdmp->Primary . "), (XMT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Snow");
if ($kdmp->Primary == "SN" || $kdmp->Secondary == "XNF") {
  print "<br>Snow=(SN," . $kdmp->Primary . "), (XNF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Soole");
if ($kdmp->Primary == "SL" || $kdmp->Secondary == "SL") {
  print "<br>Soole=(SL," . $kdmp->Primary . "), (SL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Soule");
if ($kdmp->Primary == "SL" || $kdmp->Secondary == "SL") {
  print "<br>Soule=(SL," . $kdmp->Primary . "), (SL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Southworth");
if ($kdmp->Primary == "S0R0" || $kdmp->Secondary == "STRT") {
  print "<br>Southworth=(S0R0," . $kdmp->Primary . "), (STRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sowles");
if ($kdmp->Primary == "SLS" || $kdmp->Secondary == "SLS") {
  print "<br>Sowles=(SLS," . $kdmp->Primary . "), (SLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Spalding");
if ($kdmp->Primary == "SPLT" || $kdmp->Secondary == "SPLT") {
  print "<br>Spalding=(SPLT," . $kdmp->Primary . "), (SPLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Spark");
if ($kdmp->Primary == "SPRK" || $kdmp->Secondary == "SPRK") {
  print "<br>Spark=(SPRK," . $kdmp->Primary . "), (SPRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Spencer");
if ($kdmp->Primary == "SPNS" || $kdmp->Secondary == "SPNS") {
  print "<br>Spencer=(SPNS," . $kdmp->Primary . "), (SPNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sperry");
if ($kdmp->Primary == "SPR" || $kdmp->Secondary == "SPR") {
  print "<br>Sperry=(SPR," . $kdmp->Primary . "), (SPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Spofford");
if ($kdmp->Primary == "SPFR" || $kdmp->Secondary == "SPFR") {
  print "<br>Spofford=(SPFR," . $kdmp->Primary . "), (SPFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Spooner");
if ($kdmp->Primary == "SPNR" || $kdmp->Secondary == "SPNR") {
  print "<br>Spooner=(SPNR," . $kdmp->Primary . "), (SPNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sprague");
if ($kdmp->Primary == "SPRK" || $kdmp->Secondary == "SPRK") {
  print "<br>Sprague=(SPRK," . $kdmp->Primary . "), (SPRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Springer");
if ($kdmp->Primary == "SPRN" || $kdmp->Secondary == "SPRN") {
  print "<br>Springer=(SPRN," . $kdmp->Primary . "), (SPRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("St. Clair");
if ($kdmp->Primary == "STKL" || $kdmp->Secondary == "STKL") {
  print "<br>St. Clair=(STKL," . $kdmp->Primary . "), (STKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("St. Claire");
if ($kdmp->Primary == "STKL" || $kdmp->Secondary == "STKL") {
  print "<br>St. Claire=(STKL," . $kdmp->Primary . "), (STKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("St. Leger");
if ($kdmp->Primary == "STLJ" || $kdmp->Secondary == "STLK") {
  print "<br>St. Leger=(STLJ," . $kdmp->Primary . "), (STLK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("St. Omer");
if ($kdmp->Primary == "STMR" || $kdmp->Secondary == "STMR") {
  print "<br>St. Omer=(STMR," . $kdmp->Primary . "), (STMR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stafferton");
if ($kdmp->Primary == "STFR" || $kdmp->Secondary == "STFR") {
  print "<br>Stafferton=(STFR," . $kdmp->Primary . "), (STFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stafford");
if ($kdmp->Primary == "STFR" || $kdmp->Secondary == "STFR") {
  print "<br>Stafford=(STFR," . $kdmp->Primary . "), (STFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stalham");
if ($kdmp->Primary == "STLM" || $kdmp->Secondary == "STLM") {
  print "<br>Stalham=(STLM," . $kdmp->Primary . "), (STLM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stanford");
if ($kdmp->Primary == "STNF" || $kdmp->Secondary == "STNF") {
  print "<br>Stanford=(STNF," . $kdmp->Primary . "), (STNF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stanton");
if ($kdmp->Primary == "STNT" || $kdmp->Secondary == "STNT") {
  print "<br>Stanton=(STNT," . $kdmp->Primary . "), (STNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Star");
if ($kdmp->Primary == "STR" || $kdmp->Secondary == "STR") {
  print "<br>Star=(STR," . $kdmp->Primary . "), (STR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Starbuck");
if ($kdmp->Primary == "STRP" || $kdmp->Secondary == "STRP") {
  print "<br>Starbuck=(STRP," . $kdmp->Primary . "), (STRP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Starkey");
if ($kdmp->Primary == "STRK" || $kdmp->Secondary == "STRK") {
  print "<br>Starkey=(STRK," . $kdmp->Primary . "), (STRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Starkweather");
if ($kdmp->Primary == "STRK" || $kdmp->Secondary == "STRK") {
  print "<br>Starkweather=(STRK," . $kdmp->Primary . "), (STRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stearns");
if ($kdmp->Primary == "STRN" || $kdmp->Secondary == "STRN") {
  print "<br>Stearns=(STRN," . $kdmp->Primary . "), (STRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stebbins");
if ($kdmp->Primary == "STPN" || $kdmp->Secondary == "STPN") {
  print "<br>Stebbins=(STPN," . $kdmp->Primary . "), (STPN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Steele");
if ($kdmp->Primary == "STL" || $kdmp->Secondary == "STL") {
  print "<br>Steele=(STL," . $kdmp->Primary . "), (STL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stephenson");
if ($kdmp->Primary == "STFN" || $kdmp->Secondary == "STFN") {
  print "<br>Stephenson=(STFN," . $kdmp->Primary . "), (STFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stevens");
if ($kdmp->Primary == "STFN" || $kdmp->Secondary == "STFN") {
  print "<br>Stevens=(STFN," . $kdmp->Primary . "), (STFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stoddard");
if ($kdmp->Primary == "STTR" || $kdmp->Secondary == "STTR") {
  print "<br>Stoddard=(STTR," . $kdmp->Primary . "), (STTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stodder");
if ($kdmp->Primary == "STTR" || $kdmp->Secondary == "STTR") {
  print "<br>Stodder=(STTR," . $kdmp->Primary . "), (STTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stone");
if ($kdmp->Primary == "STN" || $kdmp->Secondary == "STN") {
  print "<br>Stone=(STN," . $kdmp->Primary . "), (STN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Storey");
if ($kdmp->Primary == "STR" || $kdmp->Secondary == "STR") {
  print "<br>Storey=(STR," . $kdmp->Primary . "), (STR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Storrada");
if ($kdmp->Primary == "STRT" || $kdmp->Secondary == "STRT") {
  print "<br>Storrada=(STRT," . $kdmp->Primary . "), (STRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Story");
if ($kdmp->Primary == "STR" || $kdmp->Secondary == "STR") {
  print "<br>Story=(STR," . $kdmp->Primary . "), (STR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stoughton");
if ($kdmp->Primary == "STFT" || $kdmp->Secondary == "STFT") {
  print "<br>Stoughton=(STFT," . $kdmp->Primary . "), (STFT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stout");
if ($kdmp->Primary == "STT" || $kdmp->Secondary == "STT") {
  print "<br>Stout=(STT," . $kdmp->Primary . "), (STT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stow");
if ($kdmp->Primary == "ST" || $kdmp->Secondary == "STF") {
  print "<br>Stow=(ST," . $kdmp->Primary . "), (STF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Strong");
if ($kdmp->Primary == "STRN" || $kdmp->Secondary == "STRN") {
  print "<br>Strong=(STRN," . $kdmp->Primary . "), (STRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Strutt");
if ($kdmp->Primary == "STRT" || $kdmp->Secondary == "STRT") {
  print "<br>Strutt=(STRT," . $kdmp->Primary . "), (STRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stryker");
if ($kdmp->Primary == "STRK" || $kdmp->Secondary == "STRK") {
  print "<br>Stryker=(STRK," . $kdmp->Primary . "), (STRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Stuckeley");
if ($kdmp->Primary == "STKL" || $kdmp->Secondary == "STKL") {
  print "<br>Stuckeley=(STKL," . $kdmp->Primary . "), (STKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sturges");
if ($kdmp->Primary == "STRJ" || $kdmp->Secondary == "STRK") {
  print "<br>Sturges=(STRJ," . $kdmp->Primary . "), (STRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sturgess");
if ($kdmp->Primary == "STRJ" || $kdmp->Secondary == "STRK") {
  print "<br>Sturgess=(STRJ," . $kdmp->Primary . "), (STRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sturgis");
if ($kdmp->Primary == "STRJ" || $kdmp->Secondary == "STRK") {
  print "<br>Sturgis=(STRJ," . $kdmp->Primary . "), (STRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Suevain");
if ($kdmp->Primary == "SFN" || $kdmp->Secondary == "SFN") {
  print "<br>Suevain=(SFN," . $kdmp->Primary . "), (SFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sulyard");
if ($kdmp->Primary == "SLRT" || $kdmp->Secondary == "SLRT") {
  print "<br>Sulyard=(SLRT," . $kdmp->Primary . "), (SLRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Sutton");
if ($kdmp->Primary == "STN" || $kdmp->Secondary == "STN") {
  print "<br>Sutton=(STN," . $kdmp->Primary . "), (STN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Swain");
if ($kdmp->Primary == "SN" || $kdmp->Secondary == "XN") {
  print "<br>Swain=(SN," . $kdmp->Primary . "), (XN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Swayne");
if ($kdmp->Primary == "SN" || $kdmp->Secondary == "XN") {
  print "<br>Swayne=(SN," . $kdmp->Primary . "), (XN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Swayze");
if ($kdmp->Primary == "SS" || $kdmp->Secondary == "XTS") {
  print "<br>Swayze=(SS," . $kdmp->Primary . "), (XTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Swift");
if ($kdmp->Primary == "SFT" || $kdmp->Secondary == "XFT") {
  print "<br>Swift=(SFT," . $kdmp->Primary . "), (XFT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Taber");
if ($kdmp->Primary == "TPR" || $kdmp->Secondary == "TPR") {
  print "<br>Taber=(TPR," . $kdmp->Primary . "), (TPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Talcott");
if ($kdmp->Primary == "TLKT" || $kdmp->Secondary == "TLKT") {
  print "<br>Talcott=(TLKT," . $kdmp->Primary . "), (TLKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tarne");
if ($kdmp->Primary == "TRN" || $kdmp->Secondary == "TRN") {
  print "<br>Tarne=(TRN," . $kdmp->Primary . "), (TRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tatum");
if ($kdmp->Primary == "TTM" || $kdmp->Secondary == "TTM") {
  print "<br>Tatum=(TTM," . $kdmp->Primary . "), (TTM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Taverner");
if ($kdmp->Primary == "TFRN" || $kdmp->Secondary == "TFRN") {
  print "<br>Taverner=(TFRN," . $kdmp->Primary . "), (TFRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Taylor");
if ($kdmp->Primary == "TLR" || $kdmp->Secondary == "TLR") {
  print "<br>Taylor=(TLR," . $kdmp->Primary . "), (TLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tenney");
if ($kdmp->Primary == "TN" || $kdmp->Secondary == "TN") {
  print "<br>Tenney=(TN," . $kdmp->Primary . "), (TN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Thayer");
if ($kdmp->Primary == "0R" || $kdmp->Secondary == "TR") {
  print "<br>Thayer=(0R," . $kdmp->Primary . "), (TR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Thember");
if ($kdmp->Primary == "0MPR" || $kdmp->Secondary == "TMPR") {
  print "<br>Thember=(0MPR," . $kdmp->Primary . "), (TMPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Thomas");
if ($kdmp->Primary == "TMS" || $kdmp->Secondary == "TMS") {
  print "<br>Thomas=(TMS," . $kdmp->Primary . "), (TMS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Thompson");
if ($kdmp->Primary == "TMPS" || $kdmp->Secondary == "TMPS") {
  print "<br>Thompson=(TMPS," . $kdmp->Primary . "), (TMPS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Thorne");
if ($kdmp->Primary == "0RN" || $kdmp->Secondary == "TRN") {
  print "<br>Thorne=(0RN," . $kdmp->Primary . "), (TRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Thornycraft");
if ($kdmp->Primary == "0RNK" || $kdmp->Secondary == "TRNK") {
  print "<br>Thornycraft=(0RNK," . $kdmp->Primary . "), (TRNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Threlkeld");
if ($kdmp->Primary == "0RLK" || $kdmp->Secondary == "TRLK") {
  print "<br>Threlkeld=(0RLK," . $kdmp->Primary . "), (TRLK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Throckmorton");
if ($kdmp->Primary == "0RKM" || $kdmp->Secondary == "TRKM") {
  print "<br>Throckmorton=(0RKM," . $kdmp->Primary . "), (TRKM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Thwaits");
if ($kdmp->Primary == "0TS" || $kdmp->Secondary == "TTS") {
  print "<br>Thwaits=(0TS," . $kdmp->Primary . "), (TTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tibbetts");
if ($kdmp->Primary == "TPTS" || $kdmp->Secondary == "TPTS") {
  print "<br>Tibbetts=(TPTS," . $kdmp->Primary . "), (TPTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tidd");
if ($kdmp->Primary == "TT" || $kdmp->Secondary == "TT") {
  print "<br>Tidd=(TT," . $kdmp->Primary . "), (TT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tierney");
if ($kdmp->Primary == "TRN" || $kdmp->Secondary == "TRN") {
  print "<br>Tierney=(TRN," . $kdmp->Primary . "), (TRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tilley");
if ($kdmp->Primary == "TL" || $kdmp->Secondary == "TL") {
  print "<br>Tilley=(TL," . $kdmp->Primary . "), (TL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tillieres");
if ($kdmp->Primary == "TLRS" || $kdmp->Secondary == "TLRS") {
  print "<br>Tillieres=(TLRS," . $kdmp->Primary . "), (TLRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tilly");
if ($kdmp->Primary == "TL" || $kdmp->Secondary == "TL") {
  print "<br>Tilly=(TL," . $kdmp->Primary . "), (TL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tisdale");
if ($kdmp->Primary == "TSTL" || $kdmp->Secondary == "TSTL") {
  print "<br>Tisdale=(TSTL," . $kdmp->Primary . "), (TSTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Titus");
if ($kdmp->Primary == "TTS" || $kdmp->Secondary == "TTS") {
  print "<br>Titus=(TTS," . $kdmp->Primary . "), (TTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tobey");
if ($kdmp->Primary == "TP" || $kdmp->Secondary == "TP") {
  print "<br>Tobey=(TP," . $kdmp->Primary . "), (TP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tooker");
if ($kdmp->Primary == "TKR" || $kdmp->Secondary == "TKR") {
  print "<br>Tooker=(TKR," . $kdmp->Primary . "), (TKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Towle");
if ($kdmp->Primary == "TL" || $kdmp->Secondary == "TL") {
  print "<br>Towle=(TL," . $kdmp->Primary . "), (TL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Towne");
if ($kdmp->Primary == "TN" || $kdmp->Secondary == "TN") {
  print "<br>Towne=(TN," . $kdmp->Primary . "), (TN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Townsend");
if ($kdmp->Primary == "TNSN" || $kdmp->Secondary == "TNSN") {
  print "<br>Townsend=(TNSN," . $kdmp->Primary . "), (TNSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Treadway");
if ($kdmp->Primary == "TRT" || $kdmp->Secondary == "TRT") {
  print "<br>Treadway=(TRT," . $kdmp->Primary . "), (TRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Trelawney");
if ($kdmp->Primary == "TRLN" || $kdmp->Secondary == "TRLN") {
  print "<br>Trelawney=(TRLN," . $kdmp->Primary . "), (TRLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Trinder");
if ($kdmp->Primary == "TRNT" || $kdmp->Secondary == "TRNT") {
  print "<br>Trinder=(TRNT," . $kdmp->Primary . "), (TRNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tripp");
if ($kdmp->Primary == "TRP" || $kdmp->Secondary == "TRP") {
  print "<br>Tripp=(TRP," . $kdmp->Primary . "), (TRP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Trippe");
if ($kdmp->Primary == "TRP" || $kdmp->Secondary == "TRP") {
  print "<br>Trippe=(TRP," . $kdmp->Primary . "), (TRP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Trott");
if ($kdmp->Primary == "TRT" || $kdmp->Secondary == "TRT") {
  print "<br>Trott=(TRT," . $kdmp->Primary . "), (TRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("True");
if ($kdmp->Primary == "TR" || $kdmp->Secondary == "TR") {
  print "<br>True=(TR," . $kdmp->Primary . "), (TR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Trussebut");
if ($kdmp->Primary == "TRSP" || $kdmp->Secondary == "TRSP") {
  print "<br>Trussebut=(TRSP," . $kdmp->Primary . "), (TRSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tucker");
if ($kdmp->Primary == "TKR" || $kdmp->Secondary == "TKR") {
  print "<br>Tucker=(TKR," . $kdmp->Primary . "), (TKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Turgeon");
if ($kdmp->Primary == "TRJN" || $kdmp->Secondary == "TRKN") {
  print "<br>Turgeon=(TRJN," . $kdmp->Primary . "), (TRKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Turner");
if ($kdmp->Primary == "TRNR" || $kdmp->Secondary == "TRNR") {
  print "<br>Turner=(TRNR," . $kdmp->Primary . "), (TRNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tuttle");
if ($kdmp->Primary == "TTL" || $kdmp->Secondary == "TTL") {
  print "<br>Tuttle=(TTL," . $kdmp->Primary . "), (TTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tyler");
if ($kdmp->Primary == "TLR" || $kdmp->Secondary == "TLR") {
  print "<br>Tyler=(TLR," . $kdmp->Primary . "), (TLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tylle");
if ($kdmp->Primary == "TL" || $kdmp->Secondary == "TL") {
  print "<br>Tylle=(TL," . $kdmp->Primary . "), (TL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Tyrrel");
if ($kdmp->Primary == "TRL" || $kdmp->Secondary == "TRL") {
  print "<br>Tyrrel=(TRL," . $kdmp->Primary . "), (TRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ua Tuathail");
if ($kdmp->Primary == "AT0L" || $kdmp->Secondary == "ATTL") {
  print "<br>Ua Tuathail=(AT0L," . $kdmp->Primary . "), (ATTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ulrich");
if ($kdmp->Primary == "ALRX" || $kdmp->Secondary == "ALRK") {
  print "<br>Ulrich=(ALRX," . $kdmp->Primary . "), (ALRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Underhill");
if ($kdmp->Primary == "ANTR" || $kdmp->Secondary == "ANTR") {
  print "<br>Underhill=(ANTR," . $kdmp->Primary . "), (ANTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Underwood");
if ($kdmp->Primary == "ANTR" || $kdmp->Secondary == "ANTR") {
  print "<br>Underwood=(ANTR," . $kdmp->Primary . "), (ANTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Unknown");
if ($kdmp->Primary == "ANKN" || $kdmp->Secondary == "ANKN") {
  print "<br>Unknown=(ANKN," . $kdmp->Primary . "), (ANKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Valentine");
if ($kdmp->Primary == "FLNT" || $kdmp->Secondary == "FLNT") {
  print "<br>Valentine=(FLNT," . $kdmp->Primary . "), (FLNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Van Egmond");
if ($kdmp->Primary == "FNKM" || $kdmp->Secondary == "FNKM") {
  print "<br>Van Egmond=(FNKM," . $kdmp->Primary . "), (FNKM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Van der Beek");
if ($kdmp->Primary == "FNTR" || $kdmp->Secondary == "FNTR") {
  print "<br>Van der Beek=(FNTR," . $kdmp->Primary . "), (FNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Vaughan");
if ($kdmp->Primary == "FKN" || $kdmp->Secondary == "FKN") {
  print "<br>Vaughan=(FKN," . $kdmp->Primary . "), (FKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Vermenlen");
if ($kdmp->Primary == "FRMN" || $kdmp->Secondary == "FRMN") {
  print "<br>Vermenlen=(FRMN," . $kdmp->Primary . "), (FRMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Vincent");
if ($kdmp->Primary == "FNSN" || $kdmp->Secondary == "FNSN") {
  print "<br>Vincent=(FNSN," . $kdmp->Primary . "), (FNSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Volentine");
if ($kdmp->Primary == "FLNT" || $kdmp->Secondary == "FLNT") {
  print "<br>Volentine=(FLNT," . $kdmp->Primary . "), (FLNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wagner");
if ($kdmp->Primary == "AKNR" || $kdmp->Secondary == "FKNR") {
  print "<br>Wagner=(AKNR," . $kdmp->Primary . "), (FKNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Waite");
if ($kdmp->Primary == "AT" || $kdmp->Secondary == "FT") {
  print "<br>Waite=(AT," . $kdmp->Primary . "), (FT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Walker");
if ($kdmp->Primary == "ALKR" || $kdmp->Secondary == "FLKR") {
  print "<br>Walker=(ALKR," . $kdmp->Primary . "), (FLKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Walter");
if ($kdmp->Primary == "ALTR" || $kdmp->Secondary == "FLTR") {
  print "<br>Walter=(ALTR," . $kdmp->Primary . "), (FLTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wandell");
if ($kdmp->Primary == "ANTL" || $kdmp->Secondary == "FNTL") {
  print "<br>Wandell=(ANTL," . $kdmp->Primary . "), (FNTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wandesford");
if ($kdmp->Primary == "ANTS" || $kdmp->Secondary == "FNTS") {
  print "<br>Wandesford=(ANTS," . $kdmp->Primary . "), (FNTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Warbleton");
if ($kdmp->Primary == "ARPL" || $kdmp->Secondary == "FRPL") {
  print "<br>Warbleton=(ARPL," . $kdmp->Primary . "), (FRPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ward");
if ($kdmp->Primary == "ART" || $kdmp->Secondary == "FRT") {
  print "<br>Ward=(ART," . $kdmp->Primary . "), (FRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Warde");
if ($kdmp->Primary == "ART" || $kdmp->Secondary == "FRT") {
  print "<br>Warde=(ART," . $kdmp->Primary . "), (FRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Ware");
if ($kdmp->Primary == "AR" || $kdmp->Secondary == "FR") {
  print "<br>Ware=(AR," . $kdmp->Primary . "), (FR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wareham");
if ($kdmp->Primary == "ARHM" || $kdmp->Secondary == "FRHM") {
  print "<br>Wareham=(ARHM," . $kdmp->Primary . "), (FRHM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Warner");
if ($kdmp->Primary == "ARNR" || $kdmp->Secondary == "FRNR") {
  print "<br>Warner=(ARNR," . $kdmp->Primary . "), (FRNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Warren");
if ($kdmp->Primary == "ARN" || $kdmp->Secondary == "FRN") {
  print "<br>Warren=(ARN," . $kdmp->Primary . "), (FRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Washburne");
if ($kdmp->Primary == "AXPR" || $kdmp->Secondary == "FXPR") {
  print "<br>Washburne=(AXPR," . $kdmp->Primary . "), (FXPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Waterbury");
if ($kdmp->Primary == "ATRP" || $kdmp->Secondary == "FTRP") {
  print "<br>Waterbury=(ATRP," . $kdmp->Primary . "), (FTRP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Watson");
if ($kdmp->Primary == "ATSN" || $kdmp->Secondary == "FTSN") {
  print "<br>Watson=(ATSN," . $kdmp->Primary . "), (FTSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("WatsonEllithorpe");
if ($kdmp->Primary == "ATSN" || $kdmp->Secondary == "FTSN") {
  print "<br>WatsonEllithorpe=(ATSN," . $kdmp->Primary . "), (FTSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Watts");
if ($kdmp->Primary == "ATS" || $kdmp->Secondary == "FTS") {
  print "<br>Watts=(ATS," . $kdmp->Primary . "), (FTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wayne");
if ($kdmp->Primary == "AN" || $kdmp->Secondary == "FN") {
  print "<br>Wayne=(AN," . $kdmp->Primary . "), (FN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Webb");
if ($kdmp->Primary == "AP" || $kdmp->Secondary == "FP") {
  print "<br>Webb=(AP," . $kdmp->Primary . "), (FP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Weber");
if ($kdmp->Primary == "APR" || $kdmp->Secondary == "FPR") {
  print "<br>Weber=(APR," . $kdmp->Primary . "), (FPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Webster");
if ($kdmp->Primary == "APST" || $kdmp->Secondary == "FPST") {
  print "<br>Webster=(APST," . $kdmp->Primary . "), (FPST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Weed");
if ($kdmp->Primary == "AT" || $kdmp->Secondary == "FT") {
  print "<br>Weed=(AT," . $kdmp->Primary . "), (FT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Weeks");
if ($kdmp->Primary == "AKS" || $kdmp->Secondary == "FKS") {
  print "<br>Weeks=(AKS," . $kdmp->Primary . "), (FKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wells");
if ($kdmp->Primary == "ALS" || $kdmp->Secondary == "FLS") {
  print "<br>Wells=(ALS," . $kdmp->Primary . "), (FLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wenzell");
if ($kdmp->Primary == "ANSL" || $kdmp->Secondary == "FNTS") {
  print "<br>Wenzell=(ANSL," . $kdmp->Primary . "), (FNTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("West");
if ($kdmp->Primary == "AST" || $kdmp->Secondary == "FST") {
  print "<br>West=(AST," . $kdmp->Primary . "), (FST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Westbury");
if ($kdmp->Primary == "ASTP" || $kdmp->Secondary == "FSTP") {
  print "<br>Westbury=(ASTP," . $kdmp->Primary . "), (FSTP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Whatlocke");
if ($kdmp->Primary == "ATLK" || $kdmp->Secondary == "ATLK") {
  print "<br>Whatlocke=(ATLK," . $kdmp->Primary . "), (ATLK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wheeler");
if ($kdmp->Primary == "ALR" || $kdmp->Secondary == "ALR") {
  print "<br>Wheeler=(ALR," . $kdmp->Primary . "), (ALR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Whiston");
if ($kdmp->Primary == "ASTN" || $kdmp->Secondary == "ASTN") {
  print "<br>Whiston=(ASTN," . $kdmp->Primary . "), (ASTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("White");
if ($kdmp->Primary == "AT" || $kdmp->Secondary == "AT") {
  print "<br>White=(AT," . $kdmp->Primary . "), (AT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Whitman");
if ($kdmp->Primary == "ATMN" || $kdmp->Secondary == "ATMN") {
  print "<br>Whitman=(ATMN," . $kdmp->Primary . "), (ATMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Whiton");
if ($kdmp->Primary == "ATN" || $kdmp->Secondary == "ATN") {
  print "<br>Whiton=(ATN," . $kdmp->Primary . "), (ATN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Whitson");
if ($kdmp->Primary == "ATSN" || $kdmp->Secondary == "ATSN") {
  print "<br>Whitson=(ATSN," . $kdmp->Primary . "), (ATSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wickes");
if ($kdmp->Primary == "AKS" || $kdmp->Secondary == "FKS") {
  print "<br>Wickes=(AKS," . $kdmp->Primary . "), (FKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wilbur");
if ($kdmp->Primary == "ALPR" || $kdmp->Secondary == "FLPR") {
  print "<br>Wilbur=(ALPR," . $kdmp->Primary . "), (FLPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wilcotes");
if ($kdmp->Primary == "ALKT" || $kdmp->Secondary == "FLKT") {
  print "<br>Wilcotes=(ALKT," . $kdmp->Primary . "), (FLKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wilkinson");
if ($kdmp->Primary == "ALKN" || $kdmp->Secondary == "FLKN") {
  print "<br>Wilkinson=(ALKN," . $kdmp->Primary . "), (FLKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Willets");
if ($kdmp->Primary == "ALTS" || $kdmp->Secondary == "FLTS") {
  print "<br>Willets=(ALTS," . $kdmp->Primary . "), (FLTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Willett");
if ($kdmp->Primary == "ALT" || $kdmp->Secondary == "FLT") {
  print "<br>Willett=(ALT," . $kdmp->Primary . "), (FLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Willey");
if ($kdmp->Primary == "AL" || $kdmp->Secondary == "FL") {
  print "<br>Willey=(AL," . $kdmp->Primary . "), (FL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Williams");
if ($kdmp->Primary == "ALMS" || $kdmp->Secondary == "FLMS") {
  print "<br>Williams=(ALMS," . $kdmp->Primary . "), (FLMS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Williston");
if ($kdmp->Primary == "ALST" || $kdmp->Secondary == "FLST") {
  print "<br>Williston=(ALST," . $kdmp->Primary . "), (FLST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wilson");
if ($kdmp->Primary == "ALSN" || $kdmp->Secondary == "FLSN") {
  print "<br>Wilson=(ALSN," . $kdmp->Primary . "), (FLSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wimes");
if ($kdmp->Primary == "AMS" || $kdmp->Secondary == "FMS") {
  print "<br>Wimes=(AMS," . $kdmp->Primary . "), (FMS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Winch");
if ($kdmp->Primary == "ANX" || $kdmp->Secondary == "FNK") {
  print "<br>Winch=(ANX," . $kdmp->Primary . "), (FNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Winegar");
if ($kdmp->Primary == "ANKR" || $kdmp->Secondary == "FNKR") {
  print "<br>Winegar=(ANKR," . $kdmp->Primary . "), (FNKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wing");
if ($kdmp->Primary == "ANK" || $kdmp->Secondary == "FNK") {
  print "<br>Wing=(ANK," . $kdmp->Primary . "), (FNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Winsley");
if ($kdmp->Primary == "ANSL" || $kdmp->Secondary == "FNSL") {
  print "<br>Winsley=(ANSL," . $kdmp->Primary . "), (FNSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Winslow");
if ($kdmp->Primary == "ANSL" || $kdmp->Secondary == "FNSL") {
  print "<br>Winslow=(ANSL," . $kdmp->Primary . "), (FNSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Winthrop");
if ($kdmp->Primary == "AN0R" || $kdmp->Secondary == "FNTR") {
  print "<br>Winthrop=(AN0R," . $kdmp->Primary . "), (FNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wise");
if ($kdmp->Primary == "AS" || $kdmp->Secondary == "FS") {
  print "<br>Wise=(AS," . $kdmp->Primary . "), (FS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wood");
if ($kdmp->Primary == "AT" || $kdmp->Secondary == "FT") {
  print "<br>Wood=(AT," . $kdmp->Primary . "), (FT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Woodbridge");
if ($kdmp->Primary == "ATPR" || $kdmp->Secondary == "FTPR") {
  print "<br>Woodbridge=(ATPR," . $kdmp->Primary . "), (FTPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Woodward");
if ($kdmp->Primary == "ATRT" || $kdmp->Secondary == "FTRT") {
  print "<br>Woodward=(ATRT," . $kdmp->Primary . "), (FTRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wooley");
if ($kdmp->Primary == "AL" || $kdmp->Secondary == "FL") {
  print "<br>Wooley=(AL," . $kdmp->Primary . "), (FL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Woolley");
if ($kdmp->Primary == "AL" || $kdmp->Secondary == "FL") {
  print "<br>Woolley=(AL," . $kdmp->Primary . "), (FL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Worth");
if ($kdmp->Primary == "AR0" || $kdmp->Secondary == "FRT") {
  print "<br>Worth=(AR0," . $kdmp->Primary . "), (FRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Worthen");
if ($kdmp->Primary == "AR0N" || $kdmp->Secondary == "FRTN") {
  print "<br>Worthen=(AR0N," . $kdmp->Primary . "), (FRTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Worthley");
if ($kdmp->Primary == "AR0L" || $kdmp->Secondary == "FRTL") {
  print "<br>Worthley=(AR0L," . $kdmp->Primary . "), (FRTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wright");
if ($kdmp->Primary == "RT" || $kdmp->Secondary == "RT") {
  print "<br>Wright=(RT," . $kdmp->Primary . "), (RT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wyer");
if ($kdmp->Primary == "AR" || $kdmp->Secondary == "FR") {
  print "<br>Wyer=(AR," . $kdmp->Primary . "), (FR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wyere");
if ($kdmp->Primary == "AR" || $kdmp->Secondary == "FR") {
  print "<br>Wyere=(AR," . $kdmp->Primary . "), (FR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wynkoop");
if ($kdmp->Primary == "ANKP" || $kdmp->Secondary == "FNKP") {
  print "<br>Wynkoop=(ANKP," . $kdmp->Primary . "), (FNKP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Yarnall");
if ($kdmp->Primary == "ARNL" || $kdmp->Secondary == "ARNL") {
  print "<br>Yarnall=(ARNL," . $kdmp->Primary . "), (ARNL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Yeoman");
if ($kdmp->Primary == "AMN" || $kdmp->Secondary == "AMN") {
  print "<br>Yeoman=(AMN," . $kdmp->Primary . "), (AMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Yorke");
if ($kdmp->Primary == "ARK" || $kdmp->Secondary == "ARK") {
  print "<br>Yorke=(ARK," . $kdmp->Primary . "), (ARK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Young");
if ($kdmp->Primary == "ANK" || $kdmp->Secondary == "ANK") {
  print "<br>Young=(ANK," . $kdmp->Primary . "), (ANK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("ab Wennonwen");
if ($kdmp->Primary == "APNN" || $kdmp->Secondary == "APNN") {
  print "<br>ab Wennonwen=(APNN," . $kdmp->Primary . "), (APNN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("ap Llewellyn");
if ($kdmp->Primary == "APLL" || $kdmp->Secondary == "APLL") {
  print "<br>ap Llewellyn=(APLL," . $kdmp->Primary . "), (APLL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("ap Lorwerth");
if ($kdmp->Primary == "APLR" || $kdmp->Secondary == "APLR") {
  print "<br>ap Lorwerth=(APLR," . $kdmp->Primary . "), (APLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("d'Angouleme");
if ($kdmp->Primary == "TNKL" || $kdmp->Secondary == "TNKL") {
  print "<br>d'Angouleme=(TNKL," . $kdmp->Primary . "), (TNKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Audeham");
if ($kdmp->Primary == "TTHM" || $kdmp->Secondary == "TTHM") {
  print "<br>de Audeham=(TTHM," . $kdmp->Primary . "), (TTHM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Bavant");
if ($kdmp->Primary == "TPFN" || $kdmp->Secondary == "TPFN") {
  print "<br>de Bavant=(TPFN," . $kdmp->Primary . "), (TPFN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Beauchamp");
if ($kdmp->Primary == "TPXM" || $kdmp->Secondary == "TPKM") {
  print "<br>de Beauchamp=(TPXM," . $kdmp->Primary . "), (TPKM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Beaumont");
if ($kdmp->Primary == "TPMN" || $kdmp->Secondary == "TPMN") {
  print "<br>de Beaumont=(TPMN," . $kdmp->Primary . "), (TPMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Bolbec");
if ($kdmp->Primary == "TPLP" || $kdmp->Secondary == "TPLP") {
  print "<br>de Bolbec=(TPLP," . $kdmp->Primary . "), (TPLP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Braiose");
if ($kdmp->Primary == "TPRS" || $kdmp->Secondary == "TPRS") {
  print "<br>de Braiose=(TPRS," . $kdmp->Primary . "), (TPRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Braose");
if ($kdmp->Primary == "TPRS" || $kdmp->Secondary == "TPRS") {
  print "<br>de Braose=(TPRS," . $kdmp->Primary . "), (TPRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Briwere");
if ($kdmp->Primary == "TPRR" || $kdmp->Secondary == "TPRR") {
  print "<br>de Briwere=(TPRR," . $kdmp->Primary . "), (TPRR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Cantelou");
if ($kdmp->Primary == "TKNT" || $kdmp->Secondary == "TKNT") {
  print "<br>de Cantelou=(TKNT," . $kdmp->Primary . "), (TKNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Cherelton");
if ($kdmp->Primary == "TXRL" || $kdmp->Secondary == "TKRL") {
  print "<br>de Cherelton=(TXRL," . $kdmp->Primary . "), (TKRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Cherleton");
if ($kdmp->Primary == "TXRL" || $kdmp->Secondary == "TKRL") {
  print "<br>de Cherleton=(TXRL," . $kdmp->Primary . "), (TKRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Clare");
if ($kdmp->Primary == "TKLR" || $kdmp->Secondary == "TKLR") {
  print "<br>de Clare=(TKLR," . $kdmp->Primary . "), (TKLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Claremont");
if ($kdmp->Primary == "TKLR" || $kdmp->Secondary == "TKLR") {
  print "<br>de Claremont=(TKLR," . $kdmp->Primary . "), (TKLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Clifford");
if ($kdmp->Primary == "TKLF" || $kdmp->Secondary == "TKLF") {
  print "<br>de Clifford=(TKLF," . $kdmp->Primary . "), (TKLF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Colville");
if ($kdmp->Primary == "TKLF" || $kdmp->Secondary == "TKLF") {
  print "<br>de Colville=(TKLF," . $kdmp->Primary . "), (TKLF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Courtenay");
if ($kdmp->Primary == "TKRT" || $kdmp->Secondary == "TKRT") {
  print "<br>de Courtenay=(TKRT," . $kdmp->Primary . "), (TKRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Fauconberg");
if ($kdmp->Primary == "TFKN" || $kdmp->Secondary == "TFKN") {
  print "<br>de Fauconberg=(TFKN," . $kdmp->Primary . "), (TFKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Forest");
if ($kdmp->Primary == "TFRS" || $kdmp->Secondary == "TFRS") {
  print "<br>de Forest=(TFRS," . $kdmp->Primary . "), (TFRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Gai");
if ($kdmp->Primary == "TK" || $kdmp->Secondary == "TK") {
  print "<br>de Gai=(TK," . $kdmp->Primary . "), (TK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Grey");
if ($kdmp->Primary == "TKR" || $kdmp->Secondary == "TKR") {
  print "<br>de Grey=(TKR," . $kdmp->Primary . "), (TKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Guernons");
if ($kdmp->Primary == "TKRN" || $kdmp->Secondary == "TKRN") {
  print "<br>de Guernons=(TKRN," . $kdmp->Primary . "), (TKRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Haia");
if ($kdmp->Primary == "T" || $kdmp->Secondary == "T") {
  print "<br>de Haia=(T," . $kdmp->Primary . "), (T," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Harcourt");
if ($kdmp->Primary == "TRKR" || $kdmp->Secondary == "TRKR") {
  print "<br>de Harcourt=(TRKR," . $kdmp->Primary . "), (TRKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Hastings");
if ($kdmp->Primary == "TSTN" || $kdmp->Secondary == "TSTN") {
  print "<br>de Hastings=(TSTN," . $kdmp->Primary . "), (TSTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Hoke");
if ($kdmp->Primary == "TK" || $kdmp->Secondary == "TK") {
  print "<br>de Hoke=(TK," . $kdmp->Primary . "), (TK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Hooch");
if ($kdmp->Primary == "TK" || $kdmp->Secondary == "TK") {
  print "<br>de Hooch=(TK," . $kdmp->Primary . "), (TK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Hugelville");
if ($kdmp->Primary == "TJLF" || $kdmp->Secondary == "TKLF") {
  print "<br>de Hugelville=(TJLF," . $kdmp->Primary . "), (TKLF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Huntingdon");
if ($kdmp->Primary == "TNTN" || $kdmp->Secondary == "TNTN") {
  print "<br>de Huntingdon=(TNTN," . $kdmp->Primary . "), (TNTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Insula");
if ($kdmp->Primary == "TNSL" || $kdmp->Secondary == "TNSL") {
  print "<br>de Insula=(TNSL," . $kdmp->Primary . "), (TNSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Keynes");
if ($kdmp->Primary == "TKNS" || $kdmp->Secondary == "TKNS") {
  print "<br>de Keynes=(TKNS," . $kdmp->Primary . "), (TKNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Lacy");
if ($kdmp->Primary == "TLS" || $kdmp->Secondary == "TLS") {
  print "<br>de Lacy=(TLS," . $kdmp->Primary . "), (TLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Lexington");
if ($kdmp->Primary == "TLKS" || $kdmp->Secondary == "TLKS") {
  print "<br>de Lexington=(TLKS," . $kdmp->Primary . "), (TLKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Lusignan");
if ($kdmp->Primary == "TLSN" || $kdmp->Secondary == "TLSK") {
  print "<br>de Lusignan=(TLSN," . $kdmp->Primary . "), (TLSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Manvers");
if ($kdmp->Primary == "TMNF" || $kdmp->Secondary == "TMNF") {
  print "<br>de Manvers=(TMNF," . $kdmp->Primary . "), (TMNF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Montagu");
if ($kdmp->Primary == "TMNT" || $kdmp->Secondary == "TMNT") {
  print "<br>de Montagu=(TMNT," . $kdmp->Primary . "), (TMNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Montault");
if ($kdmp->Primary == "TMNT" || $kdmp->Secondary == "TMNT") {
  print "<br>de Montault=(TMNT," . $kdmp->Primary . "), (TMNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Montfort");
if ($kdmp->Primary == "TMNT" || $kdmp->Secondary == "TMNT") {
  print "<br>de Montfort=(TMNT," . $kdmp->Primary . "), (TMNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Mortimer");
if ($kdmp->Primary == "TMRT" || $kdmp->Secondary == "TMRT") {
  print "<br>de Mortimer=(TMRT," . $kdmp->Primary . "), (TMRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Morville");
if ($kdmp->Primary == "TMRF" || $kdmp->Secondary == "TMRF") {
  print "<br>de Morville=(TMRF," . $kdmp->Primary . "), (TMRF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Morvois");
if ($kdmp->Primary == "TMRF" || $kdmp->Secondary == "TMRF") {
  print "<br>de Morvois=(TMRF," . $kdmp->Primary . "), (TMRF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Neufmarche");
if ($kdmp->Primary == "TNFM" || $kdmp->Secondary == "TNFM") {
  print "<br>de Neufmarche=(TNFM," . $kdmp->Primary . "), (TNFM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Odingsells");
if ($kdmp->Primary == "TTNK" || $kdmp->Secondary == "TTNK") {
  print "<br>de Odingsells=(TTNK," . $kdmp->Primary . "), (TTNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Odyngsells");
if ($kdmp->Primary == "TTNK" || $kdmp->Secondary == "TTNK") {
  print "<br>de Odyngsells=(TTNK," . $kdmp->Primary . "), (TTNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Percy");
if ($kdmp->Primary == "TPRS" || $kdmp->Secondary == "TPRS") {
  print "<br>de Percy=(TPRS," . $kdmp->Primary . "), (TPRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Pierrepont");
if ($kdmp->Primary == "TPRP" || $kdmp->Secondary == "TPRP") {
  print "<br>de Pierrepont=(TPRP," . $kdmp->Primary . "), (TPRP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Plessetis");
if ($kdmp->Primary == "TPLS" || $kdmp->Secondary == "TPLS") {
  print "<br>de Plessetis=(TPLS," . $kdmp->Primary . "), (TPLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Porhoet");
if ($kdmp->Primary == "TPRT" || $kdmp->Secondary == "TPRT") {
  print "<br>de Porhoet=(TPRT," . $kdmp->Primary . "), (TPRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Prouz");
if ($kdmp->Primary == "TPRS" || $kdmp->Secondary == "TPRS") {
  print "<br>de Prouz=(TPRS," . $kdmp->Primary . "), (TPRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Quincy");
if ($kdmp->Primary == "TKNS" || $kdmp->Secondary == "TKNS") {
  print "<br>de Quincy=(TKNS," . $kdmp->Primary . "), (TKNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Ripellis");
if ($kdmp->Primary == "TRPL" || $kdmp->Secondary == "TRPL") {
  print "<br>de Ripellis=(TRPL," . $kdmp->Primary . "), (TRPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Ros");
if ($kdmp->Primary == "TRS" || $kdmp->Secondary == "TRS") {
  print "<br>de Ros=(TRS," . $kdmp->Primary . "), (TRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Salisbury");
if ($kdmp->Primary == "TSLS" || $kdmp->Secondary == "TSLS") {
  print "<br>de Salisbury=(TSLS," . $kdmp->Primary . "), (TSLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Sanford");
if ($kdmp->Primary == "TSNF" || $kdmp->Secondary == "TSNF") {
  print "<br>de Sanford=(TSNF," . $kdmp->Primary . "), (TSNF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Somery");
if ($kdmp->Primary == "TSMR" || $kdmp->Secondary == "TSMR") {
  print "<br>de Somery=(TSMR," . $kdmp->Primary . "), (TSMR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de St. Hilary");
if ($kdmp->Primary == "TSTL" || $kdmp->Secondary == "TSTL") {
  print "<br>de St. Hilary=(TSTL," . $kdmp->Primary . "), (TSTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de St. Liz");
if ($kdmp->Primary == "TSTL" || $kdmp->Secondary == "TSTL") {
  print "<br>de St. Liz=(TSTL," . $kdmp->Primary . "), (TSTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Sutton");
if ($kdmp->Primary == "TSTN" || $kdmp->Secondary == "TSTN") {
  print "<br>de Sutton=(TSTN," . $kdmp->Primary . "), (TSTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Toeni");
if ($kdmp->Primary == "TTN" || $kdmp->Secondary == "TTN") {
  print "<br>de Toeni=(TTN," . $kdmp->Primary . "), (TTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Tony");
if ($kdmp->Primary == "TTN" || $kdmp->Secondary == "TTN") {
  print "<br>de Tony=(TTN," . $kdmp->Primary . "), (TTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Umfreville");
if ($kdmp->Primary == "TMFR" || $kdmp->Secondary == "TMFR") {
  print "<br>de Umfreville=(TMFR," . $kdmp->Primary . "), (TMFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Valognes");
if ($kdmp->Primary == "TFLN" || $kdmp->Secondary == "TFLK") {
  print "<br>de Valognes=(TFLN," . $kdmp->Primary . "), (TFLK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Vaux");
if ($kdmp->Primary == "TF" || $kdmp->Secondary == "TF") {
  print "<br>de Vaux=(TF," . $kdmp->Primary . "), (TF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Vere");
if ($kdmp->Primary == "TFR" || $kdmp->Secondary == "TFR") {
  print "<br>de Vere=(TFR," . $kdmp->Primary . "), (TFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Vermandois");
if ($kdmp->Primary == "TFRM" || $kdmp->Secondary == "TFRM") {
  print "<br>de Vermandois=(TFRM," . $kdmp->Primary . "), (TFRM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Vernon");
if ($kdmp->Primary == "TFRN" || $kdmp->Secondary == "TFRN") {
  print "<br>de Vernon=(TFRN," . $kdmp->Primary . "), (TFRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Vexin");
if ($kdmp->Primary == "TFKS" || $kdmp->Secondary == "TFKS") {
  print "<br>de Vexin=(TFKS," . $kdmp->Primary . "), (TFKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Vitre");
if ($kdmp->Primary == "TFTR" || $kdmp->Secondary == "TFTR") {
  print "<br>de Vitre=(TFTR," . $kdmp->Primary . "), (TFTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Wandesford");
if ($kdmp->Primary == "TNTS" || $kdmp->Secondary == "TNTS") {
  print "<br>de Wandesford=(TNTS," . $kdmp->Primary . "), (TNTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Warenne");
if ($kdmp->Primary == "TRN" || $kdmp->Secondary == "TRN") {
  print "<br>de Warenne=(TRN," . $kdmp->Primary . "), (TRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("de Westbury");
if ($kdmp->Primary == "TSTP" || $kdmp->Secondary == "TSTP") {
  print "<br>de Westbury=(TSTP," . $kdmp->Primary . "), (TSTP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("di Saluzzo");
if ($kdmp->Primary == "TSLS" || $kdmp->Secondary == "TSLT") {
  print "<br>di Saluzzo=(TSLS," . $kdmp->Primary . "), (TSLT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Alan");
if ($kdmp->Primary == "FTSL" || $kdmp->Secondary == "FTSL") {
  print "<br>fitz Alan=(FTSL," . $kdmp->Primary . "), (FTSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Geoffrey");
if ($kdmp->Primary == "FTSJ" || $kdmp->Secondary == "FTSK") {
  print "<br>fitz Geoffrey=(FTSJ," . $kdmp->Primary . "), (FTSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Herbert");
if ($kdmp->Primary == "FTSR" || $kdmp->Secondary == "FTSR") {
  print "<br>fitz Herbert=(FTSR," . $kdmp->Primary . "), (FTSR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz John");
if ($kdmp->Primary == "FTSJ" || $kdmp->Secondary == "FTSJ") {
  print "<br>fitz John=(FTSJ," . $kdmp->Primary . "), (FTSJ," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Patrick");
if ($kdmp->Primary == "FTSP" || $kdmp->Secondary == "FTSP") {
  print "<br>fitz Patrick=(FTSP," . $kdmp->Primary . "), (FTSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Payn");
if ($kdmp->Primary == "FTSP" || $kdmp->Secondary == "FTSP") {
  print "<br>fitz Payn=(FTSP," . $kdmp->Primary . "), (FTSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Piers");
if ($kdmp->Primary == "FTSP" || $kdmp->Secondary == "FTSP") {
  print "<br>fitz Piers=(FTSP," . $kdmp->Primary . "), (FTSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Randolph");
if ($kdmp->Primary == "FTSR" || $kdmp->Secondary == "FTSR") {
  print "<br>fitz Randolph=(FTSR," . $kdmp->Primary . "), (FTSR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Richard");
if ($kdmp->Primary == "FTSR" || $kdmp->Secondary == "FTSR") {
  print "<br>fitz Richard=(FTSR," . $kdmp->Primary . "), (FTSR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Robert");
if ($kdmp->Primary == "FTSR" || $kdmp->Secondary == "FTSR") {
  print "<br>fitz Robert=(FTSR," . $kdmp->Primary . "), (FTSR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Roy");
if ($kdmp->Primary == "FTSR" || $kdmp->Secondary == "FTSR") {
  print "<br>fitz Roy=(FTSR," . $kdmp->Primary . "), (FTSR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Scrob");
if ($kdmp->Primary == "FTSS" || $kdmp->Secondary == "FTSS") {
  print "<br>fitz Scrob=(FTSS," . $kdmp->Primary . "), (FTSS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Walter");
if ($kdmp->Primary == "FTSL" || $kdmp->Secondary == "FTSL") {
  print "<br>fitz Walter=(FTSL," . $kdmp->Primary . "), (FTSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Warin");
if ($kdmp->Primary == "FTSR" || $kdmp->Secondary == "FTSR") {
  print "<br>fitz Warin=(FTSR," . $kdmp->Primary . "), (FTSR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("fitz Williams");
if ($kdmp->Primary == "FTSL" || $kdmp->Secondary == "FTSL") {
  print "<br>fitz Williams=(FTSL," . $kdmp->Primary . "), (FTSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("la Zouche");
if ($kdmp->Primary == "LSX" || $kdmp->Secondary == "LSK") {
  print "<br>la Zouche=(LSX," . $kdmp->Primary . "), (LSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("le Botiller");
if ($kdmp->Primary == "LPTL" || $kdmp->Secondary == "LPTL") {
  print "<br>le Botiller=(LPTL," . $kdmp->Primary . "), (LPTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("le Despenser");
if ($kdmp->Primary == "LTSP" || $kdmp->Secondary == "LTSP") {
  print "<br>le Despenser=(LTSP," . $kdmp->Primary . "), (LTSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("le deSpencer");
if ($kdmp->Primary == "LTSP" || $kdmp->Secondary == "LTSP") {
  print "<br>le deSpencer=(LTSP," . $kdmp->Primary . "), (LTSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Allendale");
if ($kdmp->Primary == "AFLN" || $kdmp->Secondary == "AFLN") {
  print "<br>of Allendale=(AFLN," . $kdmp->Primary . "), (AFLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Angouleme");
if ($kdmp->Primary == "AFNK" || $kdmp->Secondary == "AFNK") {
  print "<br>of Angouleme=(AFNK," . $kdmp->Primary . "), (AFNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Anjou");
if ($kdmp->Primary == "AFNJ" || $kdmp->Secondary == "AFNJ") {
  print "<br>of Anjou=(AFNJ," . $kdmp->Primary . "), (AFNJ," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Aquitaine");
if ($kdmp->Primary == "AFKT" || $kdmp->Secondary == "AFKT") {
  print "<br>of Aquitaine=(AFKT," . $kdmp->Primary . "), (AFKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Aumale");
if ($kdmp->Primary == "AFML" || $kdmp->Secondary == "AFML") {
  print "<br>of Aumale=(AFML," . $kdmp->Primary . "), (AFML," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Bavaria");
if ($kdmp->Primary == "AFPF" || $kdmp->Secondary == "AFPF") {
  print "<br>of Bavaria=(AFPF," . $kdmp->Primary . "), (AFPF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Boulogne");
if ($kdmp->Primary == "AFPL" || $kdmp->Secondary == "AFPL") {
  print "<br>of Boulogne=(AFPL," . $kdmp->Primary . "), (AFPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Brittany");
if ($kdmp->Primary == "AFPR" || $kdmp->Secondary == "AFPR") {
  print "<br>of Brittany=(AFPR," . $kdmp->Primary . "), (AFPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Brittary");
if ($kdmp->Primary == "AFPR" || $kdmp->Secondary == "AFPR") {
  print "<br>of Brittary=(AFPR," . $kdmp->Primary . "), (AFPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Castile");
if ($kdmp->Primary == "AFKS" || $kdmp->Secondary == "AFKS") {
  print "<br>of Castile=(AFKS," . $kdmp->Primary . "), (AFKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Chester");
if ($kdmp->Primary == "AFXS" || $kdmp->Secondary == "AFKS") {
  print "<br>of Chester=(AFXS," . $kdmp->Primary . "), (AFKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Clermont");
if ($kdmp->Primary == "AFKL" || $kdmp->Secondary == "AFKL") {
  print "<br>of Clermont=(AFKL," . $kdmp->Primary . "), (AFKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Cologne");
if ($kdmp->Primary == "AFKL" || $kdmp->Secondary == "AFKL") {
  print "<br>of Cologne=(AFKL," . $kdmp->Primary . "), (AFKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Dinan");
if ($kdmp->Primary == "AFTN" || $kdmp->Secondary == "AFTN") {
  print "<br>of Dinan=(AFTN," . $kdmp->Primary . "), (AFTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Dunbar");
if ($kdmp->Primary == "AFTN" || $kdmp->Secondary == "AFTN") {
  print "<br>of Dunbar=(AFTN," . $kdmp->Primary . "), (AFTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of England");
if ($kdmp->Primary == "AFNK" || $kdmp->Secondary == "AFNK") {
  print "<br>of England=(AFNK," . $kdmp->Primary . "), (AFNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Essex");
if ($kdmp->Primary == "AFSK" || $kdmp->Secondary == "AFSK") {
  print "<br>of Essex=(AFSK," . $kdmp->Primary . "), (AFSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Falaise");
if ($kdmp->Primary == "AFFL" || $kdmp->Secondary == "AFFL") {
  print "<br>of Falaise=(AFFL," . $kdmp->Primary . "), (AFFL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Flanders");
if ($kdmp->Primary == "AFFL" || $kdmp->Secondary == "AFFL") {
  print "<br>of Flanders=(AFFL," . $kdmp->Primary . "), (AFFL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Galloway");
if ($kdmp->Primary == "AFKL" || $kdmp->Secondary == "AFKL") {
  print "<br>of Galloway=(AFKL," . $kdmp->Primary . "), (AFKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Germany");
if ($kdmp->Primary == "AFKR" || $kdmp->Secondary == "AFJR") {
  print "<br>of Germany=(AFKR," . $kdmp->Primary . "), (AFJR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Gloucester");
if ($kdmp->Primary == "AFKL" || $kdmp->Secondary == "AFKL") {
  print "<br>of Gloucester=(AFKL," . $kdmp->Primary . "), (AFKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Heristal");
if ($kdmp->Primary == "AFRS" || $kdmp->Secondary == "AFRS") {
  print "<br>of Heristal=(AFRS," . $kdmp->Primary . "), (AFRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Hungary");
if ($kdmp->Primary == "AFNK" || $kdmp->Secondary == "AFNK") {
  print "<br>of Hungary=(AFNK," . $kdmp->Primary . "), (AFNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Huntington");
if ($kdmp->Primary == "AFNT" || $kdmp->Secondary == "AFNT") {
  print "<br>of Huntington=(AFNT," . $kdmp->Primary . "), (AFNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Kiev");
if ($kdmp->Primary == "AFKF" || $kdmp->Secondary == "AFKF") {
  print "<br>of Kiev=(AFKF," . $kdmp->Primary . "), (AFKF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Kuno");
if ($kdmp->Primary == "AFKN" || $kdmp->Secondary == "AFKN") {
  print "<br>of Kuno=(AFKN," . $kdmp->Primary . "), (AFKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Landen");
if ($kdmp->Primary == "AFLN" || $kdmp->Secondary == "AFLN") {
  print "<br>of Landen=(AFLN," . $kdmp->Primary . "), (AFLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Laon");
if ($kdmp->Primary == "AFLN" || $kdmp->Secondary == "AFLN") {
  print "<br>of Laon=(AFLN," . $kdmp->Primary . "), (AFLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Leinster");
if ($kdmp->Primary == "AFLN" || $kdmp->Secondary == "AFLN") {
  print "<br>of Leinster=(AFLN," . $kdmp->Primary . "), (AFLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Lens");
if ($kdmp->Primary == "AFLN" || $kdmp->Secondary == "AFLN") {
  print "<br>of Lens=(AFLN," . $kdmp->Primary . "), (AFLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Lorraine");
if ($kdmp->Primary == "AFLR" || $kdmp->Secondary == "AFLR") {
  print "<br>of Lorraine=(AFLR," . $kdmp->Primary . "), (AFLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Louvain");
if ($kdmp->Primary == "AFLF" || $kdmp->Secondary == "AFLF") {
  print "<br>of Louvain=(AFLF," . $kdmp->Primary . "), (AFLF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Mercia");
if ($kdmp->Primary == "AFMR" || $kdmp->Secondary == "AFMR") {
  print "<br>of Mercia=(AFMR," . $kdmp->Primary . "), (AFMR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Metz");
if ($kdmp->Primary == "AFMT" || $kdmp->Secondary == "AFMT") {
  print "<br>of Metz=(AFMT," . $kdmp->Primary . "), (AFMT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Meulan");
if ($kdmp->Primary == "AFML" || $kdmp->Secondary == "AFML") {
  print "<br>of Meulan=(AFML," . $kdmp->Primary . "), (AFML," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Nass");
if ($kdmp->Primary == "AFNS" || $kdmp->Secondary == "AFNS") {
  print "<br>of Nass=(AFNS," . $kdmp->Primary . "), (AFNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Normandy");
if ($kdmp->Primary == "AFNR" || $kdmp->Secondary == "AFNR") {
  print "<br>of Normandy=(AFNR," . $kdmp->Primary . "), (AFNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Ohningen");
if ($kdmp->Primary == "AFNN" || $kdmp->Secondary == "AFNN") {
  print "<br>of Ohningen=(AFNN," . $kdmp->Primary . "), (AFNN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Orleans");
if ($kdmp->Primary == "AFRL" || $kdmp->Secondary == "AFRL") {
  print "<br>of Orleans=(AFRL," . $kdmp->Primary . "), (AFRL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Poitou");
if ($kdmp->Primary == "AFPT" || $kdmp->Secondary == "AFPT") {
  print "<br>of Poitou=(AFPT," . $kdmp->Primary . "), (AFPT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Polotzk");
if ($kdmp->Primary == "AFPL" || $kdmp->Secondary == "AFPL") {
  print "<br>of Polotzk=(AFPL," . $kdmp->Primary . "), (AFPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Provence");
if ($kdmp->Primary == "AFPR" || $kdmp->Secondary == "AFPR") {
  print "<br>of Provence=(AFPR," . $kdmp->Primary . "), (AFPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Ringelheim");
if ($kdmp->Primary == "AFRN" || $kdmp->Secondary == "AFRN") {
  print "<br>of Ringelheim=(AFRN," . $kdmp->Primary . "), (AFRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Salisbury");
if ($kdmp->Primary == "AFSL" || $kdmp->Secondary == "AFSL") {
  print "<br>of Salisbury=(AFSL," . $kdmp->Primary . "), (AFSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Saxony");
if ($kdmp->Primary == "AFSK" || $kdmp->Secondary == "AFSK") {
  print "<br>of Saxony=(AFSK," . $kdmp->Primary . "), (AFSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Scotland");
if ($kdmp->Primary == "AFSK" || $kdmp->Secondary == "AFSK") {
  print "<br>of Scotland=(AFSK," . $kdmp->Primary . "), (AFSK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Senlis");
if ($kdmp->Primary == "AFSN" || $kdmp->Secondary == "AFSN") {
  print "<br>of Senlis=(AFSN," . $kdmp->Primary . "), (AFSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Stafford");
if ($kdmp->Primary == "AFST" || $kdmp->Secondary == "AFST") {
  print "<br>of Stafford=(AFST," . $kdmp->Primary . "), (AFST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Swabia");
if ($kdmp->Primary == "AFSP" || $kdmp->Secondary == "AFSP") {
  print "<br>of Swabia=(AFSP," . $kdmp->Primary . "), (AFSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of Tongres");
if ($kdmp->Primary == "AFTN" || $kdmp->Secondary == "AFTN") {
  print "<br>of Tongres=(AFTN," . $kdmp->Primary . "), (AFTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("of the Tributes");
if ($kdmp->Primary == "AF0T" || $kdmp->Secondary == "AFTT") {
  print "<br>of the Tributes=(AF0T," . $kdmp->Primary . "), (AFTT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("unknown");
if ($kdmp->Primary == "ANKN" || $kdmp->Secondary == "ANKN") {
  print "<br>unknown=(ANKN," . $kdmp->Primary . "), (ANKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("van der Gouda");
if ($kdmp->Primary == "FNTR" || $kdmp->Secondary == "FNTR") {
  print "<br>van der Gouda=(FNTR," . $kdmp->Primary . "), (FNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("von Adenbaugh");
if ($kdmp->Primary == "FNTN" || $kdmp->Secondary == "FNTN") {
  print "<br>von Adenbaugh=(FNTN," . $kdmp->Primary . "), (FNTN," . $kdmp->Secondary . ")\n";
}

# added some additional names to check out specific test cases

$kdmp->_map("ARCHITure");
if ($kdmp->Primary == "ARKT" || $kdmp->Secondary == "ARKT") {
  print "<br>ARCHITure=(ARKT," . $kdmp->Primary . "), (ARKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Arnoff");
if ($kdmp->Primary == "ARNF" || $kdmp->Secondary == "ARNF") {
  print "<br>Arnoff=(ARNF," . $kdmp->Primary . "), (ARNF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Arnow");
if ($kdmp->Primary == "ARN" || $kdmp->Secondary == "ARNF") {
  print "<br>Arnow=(ARN," . $kdmp->Primary . "), (ARNF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("DANGER");
if ($kdmp->Primary == "TNJR" || $kdmp->Secondary == "TNKR") {
  print "<br>DANGER=(TNJR," . $kdmp->Primary . "), (TNKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Jankelowicz");
if ($kdmp->Primary == "JNKL" || $kdmp->Secondary == "ANKL") {
  print "<br>Jankelowicz=(JNKL," . $kdmp->Primary . "), (ANKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("MANGER");
if ($kdmp->Primary == "MNJR" || $kdmp->Secondary == "MNKR") {
  print "<br>MANGER=(MNJR," . $kdmp->Primary . "), (MNKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("McClellan");
if ($kdmp->Primary == "MKLL" || $kdmp->Secondary == "MKLL") {
  print "<br>McClellan=(MKLL," . $kdmp->Primary . "), (MKLL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("McHugh");
if ($kdmp->Primary == "MK" || $kdmp->Secondary == "MK") {
  print "<br>McHugh=(MK," . $kdmp->Primary . "), (MK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("McLaughlin");
if ($kdmp->Primary == "MKLF" || $kdmp->Secondary == "MKLF") {
  print "<br>McLaughlin=(MKLF," . $kdmp->Primary . "), (MKLF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("ORCHEStra");
if ($kdmp->Primary == "ARKS" || $kdmp->Secondary == "ARKS") {
  print "<br>ORCHEStra=(ARKS," . $kdmp->Primary . "), (ARKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("ORCHID");
if ($kdmp->Primary == "ARKT" || $kdmp->Secondary == "ARKT") {
  print "<br>ORCHID=(ARKT," . $kdmp->Primary . "), (ARKT," . $kdmp->Secondary . ")\n";

}
$kdmp->_map("Pierce");
if ($kdmp->Primary == "PRS" || $kdmp->Secondary == "PRS") {
  print "<br>Pierce=(PRS," . $kdmp->Primary . "), (PRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("RANGER");
if ($kdmp->Primary == "RNJR" || $kdmp->Secondary == "RNKR") {
  print "<br>RANGER=(RNJR," . $kdmp->Primary . "), (RNKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Schlesinger");
if ($kdmp->Primary == "XLSN" || $kdmp->Secondary == "SLSN") {
  print "<br>Schlesinger=(XLSN," . $kdmp->Primary . "), (SLSN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Uomo");
if ($kdmp->Primary == "AM" || $kdmp->Secondary == "AM") {
  print "<br>Uomo=(AM," . $kdmp->Primary . "), (AM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Vasserman");
if ($kdmp->Primary == "FSRM" || $kdmp->Secondary == "FSRM") {
  print "<br>Vasserman=(FSRM," . $kdmp->Primary . "), (FSRM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Wasserman");
if ($kdmp->Primary == "ASRM" || $kdmp->Secondary == "FSRM") {
  print "<br>Wasserman=(ASRM," . $kdmp->Primary . "), (FSRM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Womo");
if ($kdmp->Primary == "AM" || $kdmp->Secondary == "FM") {
  print "<br>Womo=(AM," . $kdmp->Primary . "), (FM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("Yankelovich");
if ($kdmp->Primary == "ANKL" || $kdmp->Secondary == "ANKL") {
  print "<br>Yankelovich=(ANKL," . $kdmp->Primary . "), (ANKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("accede");
if ($kdmp->Primary == "AKST" || $kdmp->Secondary == "AKST") {
  print "<br>accede=(AKST," . $kdmp->Primary . "), (AKST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("accident");
if ($kdmp->Primary == "AKST" || $kdmp->Secondary == "AKST") {
  print "<br>accident=(AKST," . $kdmp->Primary . "), (AKST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("adelsheim");
if ($kdmp->Primary == "ATLS" || $kdmp->Secondary == "ATLS") {
  print "<br>adelsheim=(ATLS," . $kdmp->Primary . "), (ATLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("aged");
if ($kdmp->Primary == "AJT" || $kdmp->Secondary == "AKT") {
  print "<br>aged=(AJT," . $kdmp->Primary . "), (AKT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("ageless");
if ($kdmp->Primary == "AJLS" || $kdmp->Secondary == "AKLS") {
  print "<br>ageless=(AJLS," . $kdmp->Primary . "), (AKLS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("agency");
if ($kdmp->Primary == "AJNS" || $kdmp->Secondary == "AKNS") {
  print "<br>agency=(AJNS," . $kdmp->Primary . "), (AKNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("aghast");
if ($kdmp->Primary == "AKST" || $kdmp->Secondary == "AKST") {
  print "<br>aghast=(AKST," . $kdmp->Primary . "), (AKST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("agio");
if ($kdmp->Primary == "AJ" || $kdmp->Secondary == "AK") {
  print "<br>agio=(AJ," . $kdmp->Primary . "), (AK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("agrimony");
if ($kdmp->Primary == "AKRM" || $kdmp->Secondary == "AKRM") {
  print "<br>agrimony=(AKRM," . $kdmp->Primary . "), (AKRM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("album");
if ($kdmp->Primary == "ALPM" || $kdmp->Secondary == "ALPM") {
  print "<br>album=(ALPM," . $kdmp->Primary . "), (ALPM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("alcmene");
if ($kdmp->Primary == "ALKM" || $kdmp->Secondary == "ALKM") {
  print "<br>alcmene=(ALKM," . $kdmp->Primary . "), (ALKM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("alehouse");
if ($kdmp->Primary == "ALHS" || $kdmp->Secondary == "ALHS") {
  print "<br>alehouse=(ALHS," . $kdmp->Primary . "), (ALHS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("antique");
if ($kdmp->Primary == "ANTK" || $kdmp->Secondary == "ANTK") {
  print "<br>antique=(ANTK," . $kdmp->Primary . "), (ANTK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("artois");
if ($kdmp->Primary == "ART" || $kdmp->Secondary == "ARTS") {
  print "<br>artois=(ART," . $kdmp->Primary . "), (ARTS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("automation");
if ($kdmp->Primary == "ATMX" || $kdmp->Secondary == "ATMX") {
  print "<br>automation=(ATMX," . $kdmp->Primary . "), (ATMX," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("bacchus");
if ($kdmp->Primary == "PKS" || $kdmp->Secondary == "PKS") {
  print "<br>bacchus=(PKS," . $kdmp->Primary . "), (PKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("bacci");
if ($kdmp->Primary == "PX" || $kdmp->Secondary == "PX") {
  print "<br>bacci=(PX," . $kdmp->Primary . "), (PX," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("bajador");
if ($kdmp->Primary == "PJTR" || $kdmp->Secondary == "PHTR") {
  print "<br>bajador=(PJTR," . $kdmp->Primary . "), (PHTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("bellocchio");
if ($kdmp->Primary == "PLX" || $kdmp->Secondary == "PLX") {
  print "<br>bellocchio=(PLX," . $kdmp->Primary . "), (PLX," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("bertucci");
if ($kdmp->Primary == "PRTX" || $kdmp->Secondary == "PRTX") {
  print "<br>bertucci=(PRTX," . $kdmp->Primary . "), (PRTX," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("biaggi");
if ($kdmp->Primary == "PJ" || $kdmp->Secondary == "PK") {
  print "<br>biaggi=(PJ," . $kdmp->Primary . "), (PK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("bough");
if ($kdmp->Primary == "P" || $kdmp->Secondary == "P") {
  print "<br>bough=(P," . $kdmp->Primary . "), (P," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("breaux");
if ($kdmp->Primary == "PR" || $kdmp->Secondary == "PR") {
  print "<br>breaux=(PR," . $kdmp->Primary . "), (PR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("broughton");
if ($kdmp->Primary == "PRTN" || $kdmp->Secondary == "PRTN") {
  print "<br>broughton=(PRTN," . $kdmp->Primary . "), (PRTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("cabrillo");
if ($kdmp->Primary == "KPRL" || $kdmp->Secondary == "KPR") {
  print "<br>cabrillo=(KPRL," . $kdmp->Primary . "), (KPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("caesar");
if ($kdmp->Primary == "SSR" || $kdmp->Secondary == "SSR") {
  print "<br>caesar=(SSR," . $kdmp->Primary . "), (SSR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("cagney");
if ($kdmp->Primary == "KKN" || $kdmp->Secondary == "KKN") {
  print "<br>cagney=(KKN," . $kdmp->Primary . "), (KKN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("campbell");
if ($kdmp->Primary == "KMPL" || $kdmp->Secondary == "KMPL") {
  print "<br>campbell=(KMPL," . $kdmp->Primary . "), (KMPL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("carlisle");
if ($kdmp->Primary == "KRLL" || $kdmp->Secondary == "KRLL") {
  print "<br>carlisle=(KRLL," . $kdmp->Primary . "), (KRLL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("carlysle");
if ($kdmp->Primary == "KRLL" || $kdmp->Secondary == "KRLL") {
  print "<br>carlysle=(KRLL," . $kdmp->Primary . "), (KRLL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("chemistry");
if ($kdmp->Primary == "KMST" || $kdmp->Secondary == "KMST") {
  print "<br>chemistry=(KMST," . $kdmp->Primary . "), (KMST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("chianti");
if ($kdmp->Primary == "KNT" || $kdmp->Secondary == "KNT") {
  print "<br>chianti=(KNT," . $kdmp->Primary . "), (KNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("chorus");
if ($kdmp->Primary == "KRS" || $kdmp->Secondary == "KRS") {
  print "<br>chorus=(KRS," . $kdmp->Primary . "), (KRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("cough");
if ($kdmp->Primary == "KF" || $kdmp->Secondary == "KF") {
  print "<br>cough=(KF," . $kdmp->Primary . "), (KF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("czerny");
if ($kdmp->Primary == "SRN" || $kdmp->Secondary == "XRN") {
  print "<br>czerny=(SRN," . $kdmp->Primary . "), (XRN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("deffenbacher");
if ($kdmp->Primary == "TFNP" || $kdmp->Secondary == "TFNP") {
  print "<br>deffenbacher=(TFNP," . $kdmp->Primary . "), (TFNP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("dumb");
if ($kdmp->Primary == "TM" || $kdmp->Secondary == "TM") {
  print "<br>dumb=(TM," . $kdmp->Primary . "), (TM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("edgar");
if ($kdmp->Primary == "ATKR" || $kdmp->Secondary == "ATKR") {
  print "<br>edgar=(ATKR," . $kdmp->Primary . "), (ATKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("edge");
if ($kdmp->Primary == "AJ" || $kdmp->Secondary == "AJ") {
  print "<br>edge=(AJ," . $kdmp->Primary . "), (AJ," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("filipowicz");
if ($kdmp->Primary == "FLPT" || $kdmp->Secondary == "FLPF") {
  print "<br>filipowicz=(FLPT," . $kdmp->Primary . "), (FLPF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("focaccia");
if ($kdmp->Primary == "FKX" || $kdmp->Secondary == "FKX") {
  print "<br>focaccia=(FKX," . $kdmp->Primary . "), (FKX," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("gallegos");
if ($kdmp->Primary == "KLKS" || $kdmp->Secondary == "KKS") {
  print "<br>gallegos=(KLKS," . $kdmp->Primary . "), (KKS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("gambrelli");
if ($kdmp->Primary == "KMPR" || $kdmp->Secondary == "KMPR") {
  print "<br>gambrelli=(KMPR," . $kdmp->Primary . "), (KMPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("geithain");
if ($kdmp->Primary == "K0N" || $kdmp->Secondary == "JTN") {
  print "<br>geithain=(K0N," . $kdmp->Primary . "), (JTN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("ghiradelli");
if ($kdmp->Primary == "JRTL" || $kdmp->Secondary == "JRTL") {
  print "<br>ghiradelli=(JRTL," . $kdmp->Primary . "), (JRTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("ghislane");
if ($kdmp->Primary == "JLN" || $kdmp->Secondary == "JLN") {
  print "<br>ghislane=(JLN," . $kdmp->Primary . "), (JLN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("gough");
if ($kdmp->Primary == "KF" || $kdmp->Secondary == "KF") {
  print "<br>gough=(KF," . $kdmp->Primary . "), (KF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("hartheim");
if ($kdmp->Primary == "HR0M" || $kdmp->Secondary == "HRTM") {
  print "<br>hartheim=(HR0M," . $kdmp->Primary . "), (HRTM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("heimsheim");
if ($kdmp->Primary == "HMSM" || $kdmp->Secondary == "HMSM") {
  print "<br>heimsheim=(HMSM," . $kdmp->Primary . "), (HMSM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("hochmeier");
if ($kdmp->Primary == "HKMR" || $kdmp->Secondary == "HKMR") {
  print "<br>hochmeier=(HKMR," . $kdmp->Primary . "), (HKMR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("hugh");
if ($kdmp->Primary == "H" || $kdmp->Secondary == "H") {
  print "<br>hugh=(H," . $kdmp->Primary . "), (H," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("hunger");
if ($kdmp->Primary == "HNKR" || $kdmp->Secondary == "HNJR") {
  print "<br>hunger=(HNKR," . $kdmp->Primary . "), (HNJR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("hungry");
if ($kdmp->Primary == "HNKR" || $kdmp->Secondary == "HNKR") {
  print "<br>hungry=(HNKR," . $kdmp->Primary . "), (HNKR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("island");
if ($kdmp->Primary == "ALNT" || $kdmp->Secondary == "ALNT") {
  print "<br>island=(ALNT," . $kdmp->Primary . "), (ALNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("isle");
if ($kdmp->Primary == "AL" || $kdmp->Secondary == "AL") {
  print "<br>isle=(AL," . $kdmp->Primary . "), (AL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("jose");
if ($kdmp->Primary == "HS" || $kdmp->Secondary == "HS") {
  print "<br>jose=(HS," . $kdmp->Primary . "), (HS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("laugh");
if ($kdmp->Primary == "LF" || $kdmp->Secondary == "LF") {
  print "<br>laugh=(LF," . $kdmp->Primary . "), (LF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("mac caffrey");
if ($kdmp->Primary == "MKFR" || $kdmp->Secondary == "MKFR") {
  print "<br>mac caffrey=(MKFR," . $kdmp->Primary . "), (MKFR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("mac gregor");
if ($kdmp->Primary == "MKRK" || $kdmp->Secondary == "MKRK") {
  print "<br>mac gregor=(MKRK," . $kdmp->Primary . "), (MKRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("pegnitz");
if ($kdmp->Primary == "PNTS" || $kdmp->Secondary == "PKNT") {
  print "<br>pegnitz=(PNTS," . $kdmp->Primary . "), (PKNT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("piskowitz");
if ($kdmp->Primary == "PSKT" || $kdmp->Secondary == "PSKF") {
  print "<br>piskowitz=(PSKT," . $kdmp->Primary . "), (PSKF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("queen");
if ($kdmp->Primary == "KN" || $kdmp->Secondary == "KN") {
  print "<br>queen=(KN," . $kdmp->Primary . "), (KN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("raspberry");
if ($kdmp->Primary == "RSPR" || $kdmp->Secondary == "RSPR") {
  print "<br>raspberry=(RSPR," . $kdmp->Primary . "), (RSPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("resnais");
if ($kdmp->Primary == "RSN" || $kdmp->Secondary == "RSNS") {
  print "<br>resnais=(RSN," . $kdmp->Primary . "), (RSNS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("rogier");
if ($kdmp->Primary == "RJ" || $kdmp->Secondary == "RJR") {
  print "<br>rogier=(RJ," . $kdmp->Primary . "), (RJR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("rough");
if ($kdmp->Primary == "RF" || $kdmp->Secondary == "RF") {
  print "<br>rough=(RF," . $kdmp->Primary . "), (RF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("san jacinto");
if ($kdmp->Primary == "SNHS" || $kdmp->Secondary == "SNHS") {
  print "<br>san jacinto=(SNHS," . $kdmp->Primary . "), (SNHS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("schenker");
if ($kdmp->Primary == "XNKR" || $kdmp->Secondary == "SKNK") {
  print "<br>schenker=(XNKR," . $kdmp->Primary . "), (SKNK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("schermerhorn");
if ($kdmp->Primary == "XRMR" || $kdmp->Secondary == "SKRM") {
  print "<br>schermerhorn=(XRMR," . $kdmp->Primary . "), (SKRM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("schmidt");
if ($kdmp->Primary == "XMT" || $kdmp->Secondary == "SMT") {
  print "<br>schmidt=(XMT," . $kdmp->Primary . "), (SMT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("schneider");
if ($kdmp->Primary == "XNTR" || $kdmp->Secondary == "SNTR") {
  print "<br>schneider=(XNTR," . $kdmp->Primary . "), (SNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("school");
if ($kdmp->Primary == "SKL" || $kdmp->Secondary == "SKL") {
  print "<br>school=(SKL," . $kdmp->Primary . "), (SKL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("schooner");
if ($kdmp->Primary == "SKNR" || $kdmp->Secondary == "SKNR") {
  print "<br>schooner=(SKNR," . $kdmp->Primary . "), (SKNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("schrozberg");
if ($kdmp->Primary == "XRSP" || $kdmp->Secondary == "SRSP") {
  print "<br>schrozberg=(XRSP," . $kdmp->Primary . "), (SRSP," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("schulman");
if ($kdmp->Primary == "XLMN" || $kdmp->Secondary == "XLMN") {
  print "<br>schulman=(XLMN," . $kdmp->Primary . "), (XLMN," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("schwabach");
if ($kdmp->Primary == "XPK" || $kdmp->Secondary == "XFPK") {
  print "<br>schwabach=(XPK," . $kdmp->Primary . "), (XFPK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("schwarzach");
if ($kdmp->Primary == "XRSK" || $kdmp->Secondary == "XFRT") {
  print "<br>schwarzach=(XRSK," . $kdmp->Primary . "), (XFRT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("smith");
if ($kdmp->Primary == "SM0" || $kdmp->Secondary == "XMT") {
  print "<br>smith=(SM0," . $kdmp->Primary . "), (XMT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("snider");
if ($kdmp->Primary == "SNTR" || $kdmp->Secondary == "XNTR") {
  print "<br>snider=(SNTR," . $kdmp->Primary . "), (XNTR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("succeed");
if ($kdmp->Primary == "SKST" || $kdmp->Secondary == "SKST") {
  print "<br>succeed=(SKST," . $kdmp->Primary . "), (SKST," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("sugarcane");
if ($kdmp->Primary == "XKRK" || $kdmp->Secondary == "SKRK") {
  print "<br>sugarcane=(XKRK," . $kdmp->Primary . "), (SKRK," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("svobodka");
if ($kdmp->Primary == "SFPT" || $kdmp->Secondary == "SFPT") {
  print "<br>svobodka=(SFPT," . $kdmp->Primary . "), (SFPT," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("tagliaro");
if ($kdmp->Primary == "TKLR" || $kdmp->Secondary == "TLR") {
  print "<br>tagliaro=(TKLR," . $kdmp->Primary . "), (TLR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("thames");
if ($kdmp->Primary == "TMS" || $kdmp->Secondary == "TMS") {
  print "<br>thames=(TMS," . $kdmp->Primary . "), (TMS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("theilheim");
if ($kdmp->Primary == "0LM" || $kdmp->Secondary == "TLM") {
  print "<br>theilheim=(0LM," . $kdmp->Primary . "), (TLM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("thomas");
if ($kdmp->Primary == "TMS" || $kdmp->Secondary == "TMS") {
  print "<br>thomas=(TMS," . $kdmp->Primary . "), (TMS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("thumb");
if ($kdmp->Primary == "0M" || $kdmp->Secondary == "TM") {
  print "<br>thumb=(0M," . $kdmp->Primary . "), (TM," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("tichner");
if ($kdmp->Primary == "TXNR" || $kdmp->Secondary == "TKNR") {
  print "<br>tichner=(TXNR," . $kdmp->Primary . "), (TKNR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("tough");
if ($kdmp->Primary == "TF" || $kdmp->Secondary == "TF") {
  print "<br>tough=(TF," . $kdmp->Primary . "), (TF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("umbrella");
if ($kdmp->Primary == "AMPR" || $kdmp->Secondary == "AMPR") {
  print "<br>umbrella=(AMPR," . $kdmp->Primary . "), (AMPR," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("vilshofen");
if ($kdmp->Primary == "FLXF" || $kdmp->Secondary == "FLXF") {
  print "<br>vilshofen=(FLXF," . $kdmp->Primary . "), (FLXF," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("von schuller");
if ($kdmp->Primary == "FNXL" || $kdmp->Secondary == "FNXL") {
  print "<br>von schuller=(FNXL," . $kdmp->Primary . "), (FNXL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("wachtler");
if ($kdmp->Primary == "AKTL" || $kdmp->Secondary == "FKTL") {
  print "<br>wachtler=(AKTL," . $kdmp->Primary . "), (FKTL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("wechsler");
if ($kdmp->Primary == "AKSL" || $kdmp->Secondary == "FKSL") {
  print "<br>wechsler=(AKSL," . $kdmp->Primary . "), (FKSL," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("weikersheim");
if ($kdmp->Primary == "AKRS" || $kdmp->Secondary == "FKRS") {
  print "<br>weikersheim=(AKRS," . $kdmp->Primary . "), (FKRS," . $kdmp->Secondary . ")\n";
}
$kdmp->_map("zhao");
if ($kdmp->Primary == "J" || $kdmp->Secondary == "J") {
  print "<br>zhao=(J," . $kdmp->Primary . "), (J," . $kdmp->Secondary . ")\n";
}

print "<br>Done! Any errors are printed above.\n";

?>
<h2><? print $_POST['kdmp']; ?> yields '<? print $kdmp->Primary; ?>' and '<? print $kdmp->Secondary; ?>'</h2>

<form action="<? print $_SERVER['PHP_SELF']; ?>" method="POST">
<input type="text" name="kdmp" />
<input type="submit" />
</form>

<?php
$time = microtime();
$time = explode(' ', $time);
$time = $time[1] + $time[0];
$finish = $time;
$total_time = round(($finish - $start), 4);
echo '<p>'.$kdmp->Count.' words processed in '.$total_time.' seconds.</p>'."\n";

?>