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

(defrule startup
   =>
   (printout t "we are predicting crime levels" crlf )
   (assert (community (name Camden)                    ; establish facts about the community being predicted
           		(pop low)                    
            	(unemploy hi) ;  
            	(ownerocc med)
            	(twoparent low)
            	(poverty hi)
			(popdens low)
			(income low)
			(education med)
			)
	;; correct answer - crime is bad
             )
)