s(S1,S2) :- np(S1,S3), vp(S3,S4), np(S4,S2).
vp(S1,S2) :- verb(S1,S2).
det([the|S],S).
adj([small|S],S).
adj([nasty|S],S).
noun([man|S],S).
noun([house|S],S).
verb([takes|S],S).
prep([to|S],S).
prep([in|S],S).
prep([into|S],S).