;;; *****************************
;;; *  PORTABLE AI LAB  - IDSIA *
;;; *****************************
;;;  
;;; Filename:    lex-number 
;;; Module:      ATN AUGMENTED TRANSITION NETWORKS
;;; Author(s):   Paolo Cattaneo
;;; Short Desc:  A sample Lexicon file
;;;===================================================================

;;
;; Lexicon lex-number to use with net-number
;;

(in-package :atn)
(setq *lexicon*
  '(
    (b HYPHEN ) (and AND)
    (one UNIT (NUM 1)) (two UNIT (NUM 2)) (three UNIT (NUM 3)) (four UNIT (NUM 4)) (five UNIT (NUM 5))
    (six UNIT (NUM 6)) (seven UNIT (NUM 7)) (eight UNIT (NUM 8)) (nine UNIT (NUM 9)) (ten TEEN (NUM 10))
    (eleven TEEN (NUM 11)) (twelve TEEN (NUM 12)) (thirteen TEEN (NUM 13)) (fourteen TEEN (NUM 14)) 
    (fifteen TEEN) (sixteen TEEN) (seventeen TEEN) (eighteen TEEN)
    (nineteen TEEN) (twenty TENS (NUM 2)) (thirty TENS (NUM 3)) (forty TENS (NUM 4)) (fifty TENS (NUM 5))
    (sixty TENS) (hundred HUNDRED )
    ))







