3generate_title_codes:- title(X,_), name(X,Codes), write('title(\''), write(X),write('\','),write(Codes), write(').'), nl, fail.
    4
    5generate_title_codes.
    6
    7title('abbot',[97,98,98,111,116]).
    8title('adm',[97,100,109]).
    9title('admiral',[97,100,109,105,114,97,108]).
   10title('air_cdre',[97,105,114,95,99,100,114,101]).
   11title('air_commodore',[97,105,114,95,99,111,109,109,111,100,111,114,101]).
   12title('air_marshal',[97,105,114,95,109,97,114,115,104,97,108]).
   13title('amb',[97,109,98]).
   14title('ambassador',[97,109,98,97,115,115,97,100,111,114]).
   15title('baron',[98,97,114,111,110]).
   16title('baroness',[98,97,114,111,110,101,115,115]).
   17title('bishop',[98,105,115,104,111,112]).
   18title('brig_gen',[98,114,105,103,95,103,101,110]).
   19title('brig_general',[98,114,105,103,95,103,101,110,101,114,97,108]).
   20title('brigadier_general',[98,114,105,103,97,100,105,101,114,95,103,101,110,101,114,97,108]).
   21title('brnss',[98,114,110,115,115]).
   22title('brother',[98,114,111,116,104,101,114]).
   23title('cpo',[99,112,111]).
   24title('capt',[99,97,112,116]).
   25title('captain',[99,97,112,116,97,105,110]).
   26title('cardinal',[99,97,114,100,105,110,97,108]).
   27title('chan',[99,104,97,110]).
   28title('chansellor',[99,104,97,110,115,101,108,108,111,114]).
   29title('chaplain',[99,104,97,112,108,97,105,110]).
   30title('chapln',[99,104,97,112,108,110]).
   31title('chief_petty_officer',[99,104,105,101,102,95,112,101,116,116,121,95,111,102,102,105,99,101,114]).
   32title('col',[99,111,108]).
   33title('colonel',[99,111,108,111,110,101,108]).
   34title('commandant',[99,111,109,109,97,110,100,97,110,116]).
   35title('commander',[99,111,109,109,97,110,100,101,114]).
   36title('commissioner',[99,111,109,109,105,115,115,105,111,110,101,114]).
   37title('congressman',[99,111,110,103,114,101,115,115,109,97,110]).
   38title('corporal',[99,111,114,112,111,114,97,108]).
   39title('councillor',[99,111,117,110,99,105,108,108,111,114]).
   40title('count',[99,111,117,110,116]).
   41title('countess',[99,111,117,110,116,101,115,115]).
   42title('cpt',[99,112,116]).
   43title('crown_prince',[99,114,111,119,110,95,112,114,105,110,99,101]).
   44title('crown_princess',[99,114,111,119,110,95,112,114,105,110,99,101,115,115]).
   45title('dame',[100,97,109,101]).
   46title('deacon',[100,101,97,99,111,110]).
   47title('deaconess',[100,101,97,99,111,110,101,115,115]).
   48title('dean',[100,101,97,110]).
   49title('doctor',[100,111,99,116,111,114]).
   50title('dr',[100,114]).
   51title('duke',[100,117,107,101]).
   52title('father',[102,97,116,104,101,114]).
   53title('first_lieutient',[102,105,114,115,116,95,108,105,101,117,116,105,101,110,116]).
   54title('first_officer',[102,105,114,115,116,95,111,102,102,105,99,101,114]).
   55title('frau',[102,114,97,117]).
   56title('gen',[103,101,110]).
   57title('general',[103,101,110,101,114,97,108]).
   58title('gov',[103,111,118]).
   59title('governor',[103,111,118,101,114,110,111,114]).
   60title('judge',[106,117,100,103,101]).
   61title('lady',[108,97,100,121]).
   62title('lieut',[108,105,101,117,116]).
   63title('lieut_cdr',[108,105,101,117,116,95,99,100,114]).
   64title('lieut_col',[108,105,101,117,116,95,99,111,108]).
   65title('lieut_gen',[108,105,101,117,116,95,103,101,110]).
   66title('lord',[108,111,114,100]).
   67title('madame',[109,97,100,97,109,101]).
   68title('major',[109,97,106,111,114]).
   69title('miss',[109,105,115,115]).
   70title('mr',[109,114]).
   71title('mrs',[109,114,115]).
   72title('ms',[109,115]).
   73title('president',[112,114,101,115,105,100,101,110,116]).
   74title('prince',[112,114,105,110,99,101]).
   75title('princess',[112,114,105,110,99,101,115,115]).
   76title('prof',[112,114,111,102]).
   77title('professor',[112,114,111,102,101,115,115,111,114]).
   78title('rabbi',[114,97,98,98,105]).
   79title('senator',[115,101,110,97,116,111,114]).
   80title('senor',[115,101,110,111,114]).
   81title('senorita',[115,101,110,111,114,105,116,97]).
   82title('sergeant',[115,101,114,103,101,97,110,116]).
   83title('sheikh',[115,104,101,105,107,104]).
   84title('sir',[115,105,114]).
   85title('sister',[115,105,115,116,101,114])