% file: structeg
% query: trans(book, _, Swa, _)?
% query: trans(book, _, SwaSg, SwaPl)?

lex( eng(book,books), swa(kitabu,vitabu)).
lex( eng(tree,trees), swa(mti, miti)).
lex( eng(child,children), swa(mtoto, watoto)).

trans(EngSg, EngPl, SwaSg, SwaPl) :-
	lex( eng(EngSg, EngPl), swa(SwaSg, SwaPl)).
