;;; *****************************
;;; *  PORTABLE AI LAB  - IDSIA *
;;; *****************************
;;;  
;;; Filename:    lex-3
;;; Module:      ATN AUGMENTED TRANSITION NETWORKS
;;; Author(s):      Mike Lenz - Fabio Baj 
;;; Short Desc:  A sample Lexicon file
;;;===================================================================

;;
;; Lexicon lex3 is for use with n6.
;;

(in-package :atn)
(setq *lexicon*
  '(
    (woman N (PRED "Woman"))  (man N (PRED "Man"))  (men N (PRED "Man")) 
     (pizza N (PRED "Pizza")) (girl N (PRED "Girl")) 
    (car N (PRED "Car"))(program N(PRED "Program"))
    (she PN (PRED "Mary"))  (paolo PN (PRED "Paolo") )(luca PN (PRED "Luca"))(mary PN (PRED "Mary"))(carlo PN (PRED "Carlo"))  
    (a DET) (the DET) (that DET) (this DET) (any DET)
    (every DET ) (some DET)
    (sees Vt(PRED "See")) (see Vt(PRED "See"))(hits Vt(PRED "Hit")) (sings Vt(PRED "Sing" ))
   	 (like Vt(PRED "Like" ))
    (lacks Vt(PRED  "Lack")) (needs Vt(PRED "Need" ))
    (wants Vt(PRED "Want")) (likes Vt(PRED "Like")) (knows Vt(PRED "Know"))
     (own Vt(PRED "Own" )) (owns Vt(PRED "Own" )) (eats Vt(PRED "Eat" ))
     (saw Vt(PRED "See")) (have Vt(PRED "Own")) (has Vt(PRED "Own"))
    (loves Vt(PRED "Love")) (runs Vi(PRED "Run")) ( love Vt(PRED "Love" ))
    (who RELP) (which RELP)
    (that RELP)
    (and CONJ (CONN &)) ("." CONJ (CONN &)) (or CONJ (conn or)) (but CONJ)
    (if IF ) (then THEN (CONN =>))
    (in PREP) (on PREP) (with PREP)
    (does AUX) (is AUX) (are AUX)(is Cop) (has AUX) (have AUX)
    )
)
