(add-rule '(human-1
	    IF (patient has red blood)
	       (patient has normal hair)
	       (patient has normal nose)
	       (patient has normal ears)
	    THEN (patient is human)))

(add-rule '(generic-alien-1
	    IF (patient has wierd hair)
	    THEN (patient is alien)))

(add-rule '(generic-alien-2
	    IF (patient has wierd nose)
	    THEN (patient is alien)))

(add-rule '(generic-alien-3
	    IF (patient has wierd ears)
	    THEN (patient is alien)))

(add-rule '(vulcan-1
	    IF (patient has green blood)
	       (patient is alien)
	    THEN (patient is vulcan)))

(add-rule '(bajoran-1
	    IF (patient is alien)
	       (patient has cool earring)
	    THEN (patient is bajoran)))

(add-rule '(derreloslexia
	    IF (patient has stiffness in feet)
	       (patient is vulcan)
	    THEN (patient has derreloslexia)))

(add-rule '(riboplistism-1
	    IF (patient has derreloslexia)
  	       (patient has discolored extremities)
	    THEN (patient has riboplistism)))

(add-rule '(riboplistism-2
	    IF (patient has stiffness in feet)
	       (patient is human)
	    THEN (patient has riboplistism)))

(add-rule '(riboplistism-treatment-human
	    IF (patient has riboplistism)
	       (patient is human)
	    THEN (treat patient with carbo-nuclenocide)))

(add-rule '(riboplistism-treatment-vulcan
	    IF (patient has riboplistism)
	       (patient is vulcan)
	    THEN (treat patient with aceto-bineuralase)))

(add-rule '(DWI-human
	    IF (patient has red eyes)
	       (patient slurs speech)
	       (patient has loss of balance)
	       (patient is human)
	    THEN (patient is drunk)))

(add-rule '(DWI-vulcan
	    IF (patient has red eyes)
	       (patient slurs speech)
	       (patient has loss of balance)
	       (patient is vulcan)
	    THEN (patient in pon farr)))