article(the).
article(a).
article(an).
noun(man, men, person).
noun(woman, women, person).
noun(boy, boys, person).
noun(girl, girls, person).
noun(i, we, person).
noun(you, you, person).
noun(he, they, person).
noun(she, they, person).
noun(they, theys, person).
noun(me, us, person).
noun(him, them, person).
noun(her, them, person).
noun(president, presidents, person).
noun(student, students, person).
noun(professor, professors, person).
noun(mother, mothers, person).
noun(father, fathers, person).
noun(brother, brothers, person).
noun(sister, sisters, person).
noun(person, persons, person).
noun(friend, friends, person).
noun(enemy, enemies, person).
noun(salesman, salesmen, person).
noun(philosopher, philosophers, person).
noun(idiot, idiots, person).
noun(betty, betties, person).
noun(jim, jims, person).
noun(tom, toms, person).
noun(jerry, jerries, person).
noun(teddy, teddies, person).
noun(cat, cats, animal).
noun(dog, dogs, animal).
noun(cow, cows, animal).
noun(mouse, mice, animal).
noun(tiger, tigers, animal).
noun(duck, ducks, animal).
noun(pig, pigs, animal).
noun(bear, bears, animal).
noun(chicken, chickens, animal).
noun(snake, snakes, animal).
noun(horse, horses, animal).
noun(fly, flies, animal).
noun(ball, balls, toy).
noun(hole, holes, space).
noun(house, houses, space).
noun(park, park, space).
noun(stick, sticks, tool).
noun(pen, pens, tool).
noun(pencil, pencils, tool).
noun(computer, computers, tool).
noun(calculator, calculators, tool).
noun(hammer, hammers, tool).
noun(ruler, rulers, tool).
noun(stapler, staplers, tool).
noun(paper, papers, stuff).
noun(book, books, stuff).
noun(ink, inks, stuff).
noun(hair, hairs, stuff).
noun(cup, cups, stuff).
noun(plate, plates, stuff).
noun(desk, desks, stuff).
noun(chair, chairs, stuff).
noun(house, houses, stuff).
noun(ghost, ghosts, supernat).
noun(werewolf, werewolves, supernat).
noun(wyfwolf, wyfwolves, supernat).
noun(vampire, vampires, supernat).
noun(golem, golems, supernat).
noun(troll, trolls, supernat).
noun(hobgoblin, hobgoblins, supernat).
noun(cheese, cheeses, food).
noun(bread, breads, food).
noun(sandwich, sandwiches, food).
noun(orange, oranges, food).
noun(banana, bananas, food).
noun(fruit, fruits, food).
noun(soup, soups, food).
noun(bacon, bacons, food).
noun(cake, cakes, food).
noun(tea, teas, food).
noun(coffee, coffees, food).
noun(water, waters, food).
noun(pie, pies, food).
noun(piza, pizzas, food).
adjective(black, colour).
adjective(white, colour).
adjective(red, colour).
adjective(green, colour).
adjective(blue, colour).
adjective(yellow, colour).
adjective(brown, colour).
adjective(orange, colour).
adjective(my, ownership).
adjective(your, ownership).
adjective(our, ownership).
adjective(his, ownership).
adjective(her, ownership).
adjective(their, ownership).
adjective(its, ownership).
adjective(good, state).
adjective(bad,  state).
adjective(nice, state).
adjective(nasty, state).
adjective(evil, state).
adjective(kind, state).
adjective(dead, state).
adjective(live, state).
adjective(alive, state).
adjective(best, state).
adjective(worst, state).
adjective(hairy, state).
adjective(smelly, state).
adjective(real, state).
adjective(pretend, state).
adjective(big, size).
adjective(small, size).
adjective(little, size).
adjective(fat, size).
adjective(thin, size).
adjective(huge, size).
adjective(giant, size).
adjective(enormous, size).
admod(very).
admod(quite).
admod(slightly).
admod(completely).
admod(totally).
adverb(quickly).
adverb(stealthily).
adverb(slowly).
adverb(happily).
adverb(hungrily).
adverb(sadly).
adverb(roughly).

% verb(infinitive, continuous, present, past, otherpast, kind).
verb(eat, eating, eats, ate, eaten, consume).
verb(drink, drinking, drinks, drank, drunk, consume).
verb(bite, biting, bites, bit, bitten, attack).
verb(chase, chasing, chases, chased, chased, attack).
verb(hit, hiting, hits, hit, hit, attack).
verb(like, liking, likes, liked, liked, feeling).
verb(hate, hating, hates, hated, hated, feeling).
verb(see, seeing, sees, saw, seen, observe).
verb(hear, hearing, hears, heard, heard, observe).
verb(smell, smelling, smells, smelled, smelled, observe).
verb(take, taking, takes, took, taken, take).
verb(steal, stealing, steals, stole, stolen, take).
verb(break, breaking, breaks, broke, broken, attack).
verb(fly, flying, flies, flew, flown, movement).
verb(run, running, runs, ran, run, movement).
verb(walk, walking, walks, walked, walked, movement).
verb(say, saying, says, said, said, claim).
verb(think, thinking, thinks, thought, thought, claim).
verb(know, knowing, knows, knew, known, claim).

isanoun(W, C) :- noun(W, _, C).
isanoun(W, C) :- noun(_, W, C).

r-article([Word | Rest], Rest, article(Word)) :- article(Word).
r-noun([Word | Rest], Rest, Sem) :- isanoun(Word, Cat), Sem =.. [Cat, Word].
r-adjective([Word | Rest], Rest, Sem) :- adjective(Word, Cat), Sem =.. [Cat, Word].
r-admod([Word | Rest], Rest, admod(Word)) :- admod(Word).

r-someadj(In, Out, Sem) :- r-someadj1(In, Out, Sem, []).
r-someadj1(In, Out, Sem, Acc) :- r-adjective(In, R1, S1),
                                 r-someadj1(R1, Out, Sem, [S1 | Acc]).
r-someadj1(In, Out, Sem, Acc) :- r-admod(In, R1, admod(Modword)),
                                 r-adjective(R1, R2, S1),
                                 S1 =.. [Cat, Adj],
                                 S2 =.. [Modword, Adj],
                                 S3 =.. [Cat, S2],
                                 r-someadj1(R2, Out, Sem, [S3 | Acc]).
r-someadj1(In, In, Sem, Acc) :- reverse(Acc, R), Sem =.. [description | R].

r-nounphrase(In, Out, Sem) :- r-article(In, R1, _),
                              r-someadj(R1, R2, S2),
                              r-noun(R2, Out, S3), Sem =.. [np, S3, S2].