Создание словаря в Прологе

database
    словарь(string,string)
    
domains
    words_list = string*
    
predicates
    nondeterm result
    nondeterm menu
    nondeterm process(char)
    nondeterm retract_all
    nondeterm repeat
    
clauses
 
 repeat.
 repeat:-repeat.
 
 menu:-
       write("1 - Перевести с англиского на русский"),nl,
       write("2 - Перевести с русского на англиский"),nl,
       write("3 - Выход"),nl,
       readchar(X),
       process(X),!,
       fail.
       
 process('1'):-write("Введите англиское слово: "),
       readln(Word1),
       словарь(Word1,Word2),
       write("Перевод: ",Word2),nl,
       write("Для возврата в меню нажмите любую клавишу..."),nl,
       readchar(_),nl;
       write("Такого слова нет в словаре"),nl,nl.
       
 process('2'):- write("Введите русское слово: "),
       readln(Word2),
       словарь(Word1,Word2),
       write("Перевод:",Word1),nl,
       write("Для возврата в меню нажмите любую клавишу..."),nl,
       readchar(_),nl;
       write("Такого слова нет в словаре."),nl,nl.
       
 process('3'):-retract_all,exit.
      
 retract_all:- retract(словарь(_,_)),fail.
 retract_all.
 
 result:- existfile("C:\\trans.db"),
     consult("C:\\trans.db"), 
     repeat,
     menu.
     
goal
 
  result.