%Polish Module

:- module(pol, []).

%Sentence
se(sentence(NP, VP)) --> ne(NP, subj), ve(VP).

%Noun Phrase
ne(nphrase(D,N),SO) --> dr(D), nn(N, SO).

%Verb Phrase
ve(vphrase(V,N)) --> vb(V), ne(N, obj).
ve(vphrase(V)) --> vb(V).

%Determiners
dr(det(the)) --> [].

%Nouns
nn(noun(dog), subj) --> [pies].
nn(noun(dog), obj) --> [psa].
nn(noun(food), _) --> [jedzenie].

%Verbs
vb(verb(eats)) --> [je].