det([a|S],S).
adj([nasty|S],S).
noun([man|S],S).
noun([ball|S],S).
prep([into|S],S).