% file: trans
% query: trans(hi, Swahili)?

trans(L1word, L2word) :-
    translation(L1word, L2word), !.

trans(L1word, L2word) :-
    nonvar(L1word), var(L2word),
    write('How do you say '), write(L1word), write(' in Swahili?'),
    write('(Put a period after the word)'), nl,
    read(L2word),
    assertz(translation(L1word, L2word)).

%    	    English		Swahili
translation(hi,			jambo).
translation(person,		mtu).
translation(how_are_you,	u_hali_gani).

