def Initialize() {
$words = vector(
    "Civilian", "Civ",
    "Captain", "Cap",
    "Head of Personnel", "HoP",
    "Internal Affairs Agent", "IAA",
    "Lawyer", "Lawyer",
    "Public Defender", "Lawyer",
    "Bartender", "Bar",
    "Chef", "Chef",
    "Cook", "Cook",
    "Culinary Artist", "Chef",
    "Butcher", "Butcher",
    "Botanist", "Botany",
    "Hydroponicist", "Botany",
    "Quartermaster", "QM",
    "Cargo Technician", "Cargo",
    "Shaft Miner", "Miner",
    "Spelunker", "Miner",
    "Clown", "Clown",
    "Mime", "Mime",
    "Janitor", "Jani",
    "Custodial Technician", "Jani",
    "Librarian", "Lib",
    "Journalist", "Journal",
    "Barber", "Barber",
    "Lawyer", "Law",
    "Chaplain", "Chap",
    "Chief Engineer", "CE",
    "Station Engineer", "Engi",
    "Maintenance Technician", "M-Tech",
    "Engine Technician", "E-Tech",
    "Electrician", "Elec",
    "Atmospheric Technician", "Atmos",
    "Life Support Specialist", "Atmos",
    "Chief Medical Officer", "CMO",
    "Medical Doctor", "MD",
    "Surgeon", "Surg",
    "Nurse", "Nurse",
    "Chemist", "Chem",
    "Pharmacist", "Pharma",
    "Pharmacologist", "Pharma",
    "Geneticist", "Gene",
    "Virologist", "Viro",
    "Pathologist", "Patho",
    "Microbiologist", "Microb",
    "Psychiatrist", "Psych",
    "Psychologist", "Psych",
    "Therapist", "Thera",
    "Research Director", "RD",
    "Scientist", "Sci",
    "Xenoarcheologist", "Xenoarch",
    "Anomalist", "Anomalist",
    "Plasma Researcher", "P-Res",
    "Roboticist", "Robo",
    "Biomechanical Engineer", "Robo",
    "Mechatronic Engineer", "Robo",
    "Head of Security", "HoS",
    "Warden", "Ward",
    "Detective", "Det",
    "Forensic Technician", "Det",
    "Security Officer", "Sec",
    "Customs Officer", "Customs",
    "Brig Physician", "Brig Doc",
    "AI", "AI",
    "Cyborg", "Borg",
    "Android", "Borg",
    "Robot", "Borg",
    "Personal AI", "pAI",
    "Nanotrasen Representative", "NT Rep",
    "Nanotrasen Recruiter", "NT Rec",
    "Security Pod Pilot", "Sec Pod",
    "Magistrate", "Magi",
    "Blueshield", "Blues",
    );

    $index = 1;
  while($index <= length($words))
 {
  mem(at($words, $index), at($words, $index+1));
  $index += 2;
 }
}

if(mem("initialized") != 1)
{
 Initialize();
 mem("initialized", 1);
}

$foo = "";

if(mem($job)) { $foo = mem($job); }
else { $foo = substr($job, 1, 6); }

if (!find($source, "Unknown") && $job != "No id" && !find($source, " (as ")) {
$source = $source + " (" + $foo + ")"; }