% file: diffgr
% query: s([the, sculptor, painted, the, painting],[])?

s(L0,L) :-  np(L0,L1), vp(L1,L).
np(L0,L) :-  det(L0,L1), noun(L1,L).
vp(L0,L) :-  v(L0,L1), np(L1,L).
vp(L0,L) :- v(L0,L).
det([the|L],L).
noun([sculptor|L],L).	noun([painter|L],L).	
noun([sculpture|L],L).	noun([painting|L],L).
v([painted|L],L).	v([sculpted|L],L).

