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])