1:- module(languages, [language/1, month_name/3, week_day_name/3, adverb/5]).    2:- encoding(utf8).
    3:- use_module(library(date_time)).    4
    5%
    6% Accessors
    7%
    8language(Language):- language(Language, _, _, _, _).
    9
   10month_name(Language, MonthNumber, MonthName):-
   11	language(Language, Months, _, _, _),
   12	nth1(MonthNumber, Months, MonthName).
   13
   14week_day_name(Language, WeekDayNumber, WeekDayName):-
   15	language(Language, _, Weeks, _, _),
   16	nth0(WeekDayNumber, Weeks, WeekDayName).
   17
   18adverb(Language, Today, Date, Date, today):-
   19	language(Language, _, _, Today, _).
   20
   21adverb(Language, Tomorrow, Date, Next, tomorrow):-
   22	language(Language, _, _, _, Tomorrow), date_add(Date, days(1), Next).
   23
   24%
   25% Facts
   26%
   27language('Bulgarian',
   28	['Януари', 'Февруари', 'Март', 'Април', 'Май', 'Юни', 'Юли', 'Август', 'Септември', 'Октомври', 'Ноември', 'Декември'],
   29	['Понеделник', 'Вторник', 'Сряда', 'Четвъртък', 'Петък', 'Събота', 'Неделя'],
   30	'Днес', 'Утре'
   31).
   32language('Chinese',
   33	['一月', '二月', '三月', '四月', '五月', '六月', '七月', '八月', '九月', '十月', '十一月', '十二月'],
   34	['ᎤᎾᏙᏓᏉᏅ', 'ᏔᎵᏁ ᎢᎦ', 'ᏦᎢᏁ ᎢᎦ', 'ᏅᎩᏁ ᎢᎦ', 'ᏧᏅᎩᎶᏍᏗ', 'ᎤᎾᏙᏓᏈᏕᎾ', 'ᎤᎾᏙᏓᏆᏍᎬ'],
   35	'Avui', 'Demà'
   36).
   37language('Croatian',
   38	['Siječanj', 'Veljača', 'Ožujak', 'Travanj', 'Svibanj', 'Lipanj', 'Srpanj', 'Kolovoz', 'Rujan', 'Listopad', 'Studeni', 'Prosinac'],
   39	['Ponedjeljak', 'Utorak', 'Srijeda', 'Četvrtak', 'Petak', 'Subota', 'Nedjelja'],
   40	'Danas', 'Sutra'
   41).
   42language('Czech',
   43	['Leden', 'Únor', 'Březen', 'Duben', 'Květen', 'Červen', 'Červenec', 'Srpen', 'Září', 'Říjen', 'Listopad', 'Prosinec'],
   44	['Pondĕlí', 'Úterý', 'Středa', 'Čtvrtek', 'Pátek', 'Sobota', 'Nedĕle'],
   45	'Dnes', 'Zítra'
   46).
   47language('Danish',
   48	['Januar', 'Februar', 'Marts', 'April', 'Maj', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'December'],
   49	['Mandag', 'Tirsdag', 'Onsdag', 'Torsdag', 'Fredag', 'Lørdag', 'Søndag'],
   50	'I Dag', 'I Morgen'
   51).
   52language('Dutch',
   53	['Januari', 'Februari', 'Maart', 'April', 'Mei', 'Juni', 'Juli', 'Augustus', 'September', 'Oktober', 'November', 'December'],
   54	['Maandag', 'Dinsdag', 'Woensdag', 'Donderdag', 'Vrijdag', 'Zaterdag', 'Zondag'],
   55	'Vandaag', 'Morgen'
   56).
   57language('English',
   58	['January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'],
   59	['Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday'],
   60	'Today', 'Tomorrow'
   61).
   62language('Estonian',
   63	['Jaanuar', 'Veebruar', 'Märts', 'Aprill', 'Mai', 'Juuni', 'Juuli', 'August', 'September', 'Oktoober', 'November', 'Detsember'],
   64	['Esmaspäev', 'Teisipäev', 'Kolmapäev', 'Neljapäev', 'Reede', 'Laupäev', 'Pühapäev'],
   65	'Täna', 'Homme'
   66).
   67language('Finnish',
   68	['Tammikuu', 'Helmikuu', 'Maaliskuu', 'Huhtikuu', 'Saattaa', 'Kesäkuu', 'Heinäkuu', 'Elokuu', 'Syyskuu', 'Lokakuu', 'Marraskuu', 'Joulukuu'],
   69	['Maanantai', 'Tiistai', 'Keskiviikko', 'Torstai', 'Perjantai', 'Lauantai', 'Sunnuntai'],
   70	'Tänään', 'Huomenna'
   71).
   72language('French',
   73	['Janvier', 'Février', 'Mars', 'Avril', 'Mai', 'Juin', 'Juillet', 'Août', 'Septembre', 'Octobre', 'Novembre', 'Décembre'],
   74	['Lundi', 'Mardi', 'Mercredi', 'Jeudi', 'Vendredi', 'Samedi', 'Dimanche'],
   75	'Aujourd\'hui', 'Demain'
   76).
   77language('German',
   78	['Januar', 'Februar', 'März', 'April', 'Mai', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'Dezember'],
   79	['Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag', 'Sonntag'],
   80	'Heute', 'Morgen'
   81).
   82language('Greek',
   83	['Ιανουάριος', 'Φεβρουάριος', 'Μάρτιος', 'Απρίλιος', 'Μάιος', 'Ιούνιος', 'Ιούλιος', 'Αύγουστος', 'Σεπτέμβριος', 'Οκτώβριος', 'Νοέμβριος', 'Δεκέμβριος'],
   84	['Mendich', 'Denschdich', 'Mittich', 'Donnerschtich', 'Fraidich', 'Samschdich', 'Sonndich'],
   85	'Σήμερα', 'Αύριο'
   86).
   87language('Hebrew',
   88	['ינואר', 'פברואר', 'מרץ', 'אפריל', 'מאי', 'יוני', 'יולי', 'אוגוסט', 'ספטמבר', 'אוקטובר', 'נובמבר', 'דצמבר'],
   89	['יום שני', 'יום שלישי', 'יום רביעי', 'יום חמישי', 'יום שישי', 'יום שבת', 'יום ראשון'],
   90	'היום', 'מָחָר'
   91).
   92language('Hungarian',
   93	['Január', 'Február', 'Március', 'Április', 'Május', 'Június', 'Július', 'Augusztus', 'Szeptember', 'Október', 'November', 'December'],
   94	['Hétfő', 'Kedd', 'Szerda', 'Csütörtök', 'Péntek', 'Szombat', 'Vasárnap'],
   95	'Ma', 'Holnap'
   96).
   97language('Italian',
   98	['Gennaio', 'Febbraio', 'Marzo', 'Aprile', 'Maggio', 'Giugno', 'Luglio', 'Agosto', 'Settembre', 'Ottobre', 'Novembre', 'Dicembre'],
   99	['Lunedì', 'Martedì', 'Mercoledì', 'Giovedì', 'Venerdì', 'Sabato', 'Domenica'],
  100	'Oggi', 'Domani'
  101).
  102language('Japanese',
  103	['1月', '2月', '3月', '4月', '5月', '6月', '7月', '8月', '9月', '10月', '11月', '12月'],
  104	['月曜日', '火曜日', '水曜日', '木曜日', '金曜日', '土曜日', '日曜日'],
  105	'今日', '明日'
  106).
  107language('Latvian',
  108	['Janvāris', 'Februāris', 'Marts', 'Aprīlis', 'Maijs', 'Jūnijs', 'Jūlijs', 'Augusts', 'Septembris', 'Oktobris', 'Novembris', 'Decembris'],
  109	['Pirmdiena', 'Otrdiena', 'Trešdiena', 'Ceturtdiena', 'Piektdiena', 'Sestdiena', 'Svētdiena'],
  110	'Å odien', 'RÄ«t'
  111).
  112language('Lithuanian',
  113	['Sausis', 'Vasaris', 'Kovas', 'Balandis', 'Gegužė', 'Birželis', 'Liepa', 'Rugpjūtis', 'Rugsėjis', 'Spalis', 'Lapkritis', 'Gruodis'],
  114	['Pirmadienis', 'Antradienis', 'Trečiadienis', 'Ketvirtadienis', 'Penktadienis', 'Šeštadienis', 'Sekmadienis'],
  115	'Rytoj', 'Å iandien'
  116).
  117language('Norwegian',
  118	['Januar', 'Februar', 'Mars', 'April', 'Mai', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'Desember'],
  119	['Lundi', 'Mardi', 'Mercrédi', 'Jéeudi', 'Vendrédi', 'Sammedi', 'Dîmmaunche'],
  120	'I Dag', 'I Morgen'
  121).
  122language('Polish',
  123	['Styczeń', 'Luty', 'Marzec', 'Kwiecień', 'Maj', 'Czerwiec', 'Lipiec', 'Sierpień', 'Wrzesień', 'Październik', 'Listopad', 'Grudzień'],
  124	['Poniedziałek', 'Wtorek', 'Środa', 'Czwartek', 'Piątek', 'Sobota', 'Niedziela'],
  125	'Dzisiaj', 'Jutro'
  126).
  127language('Portuguese',
  128	['Janeiro', 'Fevereiro', 'Março', 'Abril', 'Maio', 'Junho', 'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novembro', 'Dezembro'],
  129	['Segunda-Feira', 'Terça-Feira', 'Quarta-Feira', 'Quinta-Feira', 'Sexta-Feira', 'Sábado', 'Domingo'],
  130	'Hoje', 'Amanhã'
  131).
  132language('Romanian',
  133	['Ianuarie', 'Februarie', 'Martie', 'Aprilie', 'Mai', 'Iunie', 'Iulie', 'August', 'Septembrie', 'Octombrie', 'Noiembrie', 'Decembrie'],
  134	['Luni', 'Marţi', 'Miercuri', 'Joi', 'Vineri', 'Sîmbătă', 'Duminică'],
  135	'Astăzi', 'Mâine'
  136).
  137language('Russian',
  138	['Январь', 'Февраль', 'Март', 'Апрель', 'Май', 'Июнь', 'Июль', 'Август', 'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь'],
  139	['Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье'],
  140	'Cегодня', 'Завтра'
  141).
  142language('Swedish',
  143	['Januari', 'Februari', 'Mars', 'April', 'Maj', 'Juni', 'Juli', 'Augusti', 'September', 'Oktober', 'November', 'December'],
  144	['Måndag', 'Tisdag', 'Onsdag', 'Torsdag', 'Fredag', 'Lördag', 'Söndag'],
  145	'I Dag', 'I Morgon'
  146).
  147language('Slovak',
  148	['Január', 'Február', 'Marec', 'Apríl', 'Máj', 'Jún', 'Júl', 'August', 'Septembra', 'Október', 'November', 'December'],
  149	['Pondelok', 'Utorok', 'Streda', 'Å tvrtok', 'Piatok', 'Sobota', 'Nedel\'A'],
  150	'Dnes', 'Zajtra'
  151).
  152language('Slovenian',
  153	['Januar', 'Februar', 'Marec', 'April', 'Maj', 'Junij', 'Julij', 'Avgust', 'September', 'Oktober', 'November', 'December'],
  154	['Ponedeljek', 'Torek', 'Sreda', 'Četrtek', 'Petek', 'Sobota', 'Nedelja'],
  155	'Danes', 'Jutri'
  156).
  157language('Spanish',
  158	['Enero', 'Febrero', 'Marzo', 'Abril', 'Mayo', 'Junio', 'Julio', 'Agosto', 'Septiembre', 'Octubre', 'Noviembre', 'Diciembre'],
  159	['Lunes', 'Martes', 'Miércoles', 'Jueves', 'Viernes', 'Sábado', 'Domingo'],
  160	'Hoy', 'Mañana'
  161).
  162language('Turkish',
  163	['Ocak', 'Şubat', 'Mart', 'Nisan', 'Mayıs', 'Haziran', 'Temmuz', 'Ağustos', 'Eylül', 'Ekim', 'Kasım', 'Aralık'],
  164	['Pazartesi', 'Salı', 'Çarşamba', 'Perşembe', 'Cuma', 'Cumartesi', 'Pazar'],
  165	'Бүген', 'Иртәгә'
  166).
  167language('Ukrainian',
  168	['Січень', 'Лютий', 'Березень', 'Квітень', 'Травень', 'Червень', 'Липень', 'Серпень', 'Вересень', 'Жовтень', 'Листопад', 'Грудень'],
  169	['Понеділок', 'Вівторок', 'Середа', 'Четвер', 'П\'Ятниця', 'Субота', 'Неділя'],
  170	'Сьогодні', 'Завтра'
  171).
  172language('Vietnamese',
  173	['Tháng Một', 'Tháng Hai', 'Diễu Hành', 'Tháng Tư', 'Có Thể', 'Tháng Sáu', 'Tháng Bảy', 'Uy Nghi', 'Tháng Chín', 'Tháng Mười', 'Tháng Mười Một', 'Tháng Mười Hai'],
  174	['Thứ Hai (次𠄩)', 'Thứ Ba (次𠀧)', 'Thứ Tư (次四)', 'Thứ Năm (次𠄼)', 'Thứ Sáu (次𦒹)', 'Thứ Bảy (次𦉱)', 'Chủ Nhật (主日)'],
  175	'Сьогодні', 'Завтра'
  176)