;;;======================================================
;;;   Zoo - forward chaining
;;;     
;;;     
;;;     CLIPS Version 6.0 Example
;;;
;;;     To execute, merely load this and zoosimpleindepfw.clp, reset and run.
;;;======================================================

(defrule startup
   =>
   (printout t "we are identifying zoo animals" crlf )
   (assert (hair)                    ; establish facts about the animal being identified
           (chews cud) ;  
            (legs long) ;  
            (neck long)
            (color tawny)
            (spots dark)
             )
)