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

(defrule startup
   =>
   (printout t "we are identifying relatives" crlf )
   (assert (male Rick)                    ; establish facts about the animal being identified
           (male John) ;  
            (male Joe) ;  
            (male Mark)
            (female Mary)
            (female Jane)
		(female Michelle)
		(female Karen)
		(sibling John Jane)
		(parent John Joe)
		(parent John Michelle)
		(parent Rick Mark)
		(parent Rick Karen)
		(spouse John Mary)
		(spouse Rick Jane)
		(male Jason)
		(spouse Karen Dave)
		(parent Karen Jason)
             )
)