;;; *****************************
;;; *  PORTABLE AI LAB  - IDSIA *
;;; *****************************
;;;  
;;; Filename:    Net-1 
;;; Module:      ATN AUGMENTED TRANSITION NETWORKS
;;; Author:      Paolo Cattaneo
;;; Short Desc:  A sample network file
;;;===================================================================

;; An RTN (un-augmented): all actions and tests are unspecified;
;; the tests default to t, and the actions are filled in by
;; appropriate defaults to produce parse trees as output.
;; Sample sentence:
;;   "Two hundred and twenty - five"
;;

(in-package :atn)
(setq *network*
      '(	
	(S	
	 (0 (cat TEEN 1 t (getr NUM))
	    (cat UNIT 1 t (getr NUM))
	    (push HUNDREDS 1 t () *)
	    (push TYS 1)
	    )
	 (1 (pop t (progn (format-display atn::*atn-output-window* "I recognized ~a" *) * ))))
	(HUNDREDS	
	 (0 (cat UNIT 1 t (getr NUM)))
	 (1 (cat HUNDRED 2 t '()))
	 (2 (cat AND 3)
	    (pop t '("00")))
	 (3 (cat TEENS 4 t (getr NUM))
	    (cat UNIT 4 t (getr NUM))
	    (push TYS 4))
	 (4 (pop)))
	(TYS (0 (cat TENS 1)   
		)
	     (1 (pop)
		(cat HYPHEN 2 t (list '-)))
	     (2 (cat UNIT 3))
	     (3 (pop))))) 


