;;;======================================================
;;;   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 (feathers)                    ; establish facts about the animal being identified
           (flies no) ;  
     		(birth lays-eggs)
            (color black white)
            (swims)
             )
)