(in-package "LISA-USER")
(lisa:consider-taxonomy)
;pull out a defclass macro to save time
 ;try to get as many DL like constraints in as possible
   ;look @nokia &swclos &cl-semantic work

;at least get acache defclass* in here (but doesn't lisa also have a metaclass?)
;utils::Define-Class trail-base () )
(defclass trail-base () ())
;(utils::Define-Class patient (trial-base) id)
(defclass patient (trial-base) (id))
;(utils::Define-Class newborn (patient) 
;  fullterm-p apgar blood-gas encephalopathy-p)
;defclass newborn (patient)
;defclass newborn (trial-base)
(defclass newborn ()
  ((fullterm-p :initarg :fullterm-p
             :initform 'na)
   (apgar :initarg :apgar
              :initform nil)
   (blood-gas :initarg :blood-gas
              :initform nil)
   (encephalopathy-p :initarg :encephalopathy-p
            :initform 'na)))
(watch :activations)
(watch :facts)
(watch :rules)

(defrule startup ()
  =>
  (assert
   ((make-instance 'newborn 
	  :fullterm-p t
	  :apgar 5
	  :blood-gas 7
	  :encephalopathy-p 't)))
  (assert
   ((make-instance 'newborn 
	  :fullterm-p t
	  :apgar 5
	  :blood-gas 8
	  :encephalopathy-p 't)))
  ) 
;consider 'measurment' instances, which can be viewed many ways(contextually?)incl symbolic rating* 
;-mix fwd&bw to find things (agraph/screamer/prolog kn-works)ocelot/loom/etc

;OBJECTIVE: The objective of this study was to determine the efficacy of mild 
;hypothermia via selective head cooling as a neuroprotective therapy in term 
;infants with perinatal asphyxia. 
;=STUDY DESIGN:  =(incl crit ~=applicable criterion)
;Full-term newborns 
;who had 5 min Apgar scores <6, 
;first arterial blood gas pH<7.10 or BD>15 mEq/l, 
;and with the clinical signs of encephalopathy 
;were enrolled within 6 h after birth. 
(defrule hie-match ()
 (newborn 
  (fullterm-p t)
  (encephalopathy-p t)
  (apgar ?ap)
  (blood-gas ?bg)
 )
=>
 (when (and (< ?bg 7.1) (< ?ap 6))
	 (print "found one")
))
;
;Patients were randomized to receive mild hypothermia treatment via selective head cooling 
;for a total of 72 h or receive routine treatment as a control. 
;Brain hypoxic-ischemic injury was quantified based on the head computed tomographic 
;scan (CT scan) at postnatal age 5-7 days and a Neonatal Behavioral Neurological 
;Assessment (NBNA) score at 7-10 days of life. 
;
;RESULTS: A total of 58 patients (30 hypothermia, 28 control) completed the study. 
;Hypothermia was well tolerated in this study and attenuated the hypoxic-ischemic 
;brain injury due to perinatal asphyxia. 
;Head CT scan demonstrated moderate to severe hypoxic-ischemic changes in only 4/30 
;cases from the hypothermic group. 
;In contrast, 18/28 cases in the control group showed moderate to severe hypoxic-ischemic 
;changes (chi (2)=15.97, P<0.01). 
;Brain hypothermia also significantly improved the NBNA score (32+/-2 in 
;the hypothermic group vs 28+/-3 in the control group, P<0.01). 
;
;CONCLUSIONS: Our results suggest that selective head cooling may be used as a neuroprotective 
;therapy in term neonates with perinatal asphyxia. A long-term follow-up study is 
;needed to further validate the results of this study. 
; 
; 
NIL
CL-USER(3): (load "t2.clp" :print t)
; Loading /Users/bobak/Documents/downloads/lang/lsp/ai/lisa/t2.clp
#<The LISA-USER package>
T
#<STANDARD-CLASS TRAIL-BASE>
#<STANDARD-CLASS PATIENT>
#<STANDARD-CLASS NEWBORN>
:ACTIVATIONS
:FACTS
:RULES
#<RULE STARTUP>
#<RULE HIE-MATCH>
T
CL-USER(4): (in-package "LISA-USER")
#<The LISA-USER package>
LISA-USER(5): (reset)
==> F-0 (INITIAL-FACT)
==> Activation: STARTUP : (F-0)
T
LISA-USER(6): (run)
FIRE 1: STARTUP (F-0)
==> F-1 (NEWBORN (FULLTERM-P T) (BLOOD-GAS 7) (ENCEPHALOPATHY-P T)
         (APGAR 5))
==> Activation: HIE-MATCH : (F-1)
==> F-2 (NEWBORN (FULLTERM-P T) (BLOOD-GAS 8) (ENCEPHALOPATHY-P T)
         (APGAR 5))
==> Activation: HIE-MATCH : (F-2)
FIRE 2: HIE-MATCH (F-1)

"found one" FIRE 3: HIE-MATCH (F-2)
3
LISA-USER(7):