; Name: CFGNEW1  Type: CFGNEW

(add-rule-set 'CFGNEW1 'CFG)
(add-rule-list 'CFGNEW1
  '((NP ==> NP*)
    (S ==> S PP)
    (S ==> NP VP)
    (VP ==> VP PP)
    (VP ==> V NP)
    (VP ==> V)
    (VP ==> V-NP NP)
    (VP ==> V2 NP PP)
    (SBAR ==> COMP S)
    (SBAR ==> S)
    (VP ==> V-SENTENCE SBAR)
    (VP ==> V-SENTENCE)
    (PP ==> P PP)
    (PP ==> P NP)
    (NP ==> NP PP)
    (NP ==> DET N)
    (NP ==> N)
    (ROOT ==> NP)
    (ROOT ==> S)
    ))


; Name: DICT1  Type: DICTIONARY

(add-rule-set 'DICT1 'DICTIONARY)
(add-rule-list 'DICT1
  '((TALK N)
    (TIMBUCTOU NP*)
    (ISTANBUL NP*)
    (SHOT N)
    (SHOT V)
    (WALK N)
    (THREW V)
    (TALKED V)
    (TALK V)
    (WALKED V)
    (WALK V)
    (GIRL N)
    (BOY N)
    (CAR N)
    (HOUSE N)
    (STORE N)
    (STREET N)
    (TREE N)
    (WOMAN N)
    (MAN N)
    (CAT N)
    (DOG N)
    (INTO P)
    (ABOVE P)
    (TO P)
    (IN P)
    (UP P)
    (OF P)
    (FROM P)
    (THE DET)
    (AN DET)
    (A DET)
    (WORCESTER NP*)
    (POIROT N)
    (SOLVED V-NP)
    (CASE N)
    (THOUGHT V-SENTENCE)
    (DETECTIVES N)
    (GUNS N)
    (GUN N)
    (LOST V)
    (THEIR DET)
    (SOLUTION N)
    (POLICE N)
    (SENT V2)
    (BELIEVED V-SENTENCE)
    (WERE V)
    (INCOMPETENT N)
    (THAT COMP)
    (' COMP)
    ))
(remove-rule-set 'ctnew1)
(create-cfg-table 'ctnew1 'cfgnew1 'root 1)

(p '(a man walked up the tree) :GRAMMAR 'ctnew1 :DICTIONARY 'DICT1)