/* imp_sent3.pro by Daniel Wilson*/
/* This is to be comiled with a lexicon */
/* This program employs an append-first method*/

imp_sent(X)	:-vp(X).
verb(X)		:-v(X).
verb(X)		:-v_tr(X).
verb(X)		:-v_in(X).
vp(X)		:-v_in(X).
vp(X)		:-append(A,B,X),verb(A),nounp(B).
noun(X)		:-n(X).
noun(X)		:-prn(X).
nounp(X)	:-noun(X).
nounp(X)	:-append(A,B,X),det(A),nounp(B).
det(X)		:-art(X).
det(X)		:-adj(X).
art(X)		:-art_d(X).
pp(X)		:-append(A,B,X),prep(A),nounp(B).