Clipes de não imprimir nada

Eu tentei escrever o código a seguir em CLIPES para um projeto da escola (apesar de eu não entender por que AI é feito neste idioma):

(deftemplate blood
    (slot bt)
    (multislot acc))
(deffacts acceptance
    (blood (bt 0) (acc 0 0))
    (blood (bt A) (acc 0 A))
    (blood (bt B) (acc 0 B))
    (blood (bt AB) (acc 0 A B AB)))
(defrule reading-input
=>
    (printout  t "Bloodtype of patient? ")
    (assert (patient (read)))
    (printout  t "Bloodtype of donor? ")
    (assert (donor (read))))
(defrule check-acceptance
    (patient ?patient)
    (donor ?donor)
    (blood (bt ?bt1) (acc ?acc1))
    (test (member$ ?donor ?acc1))
    =>
    (printout t "Transfusion is safe" crlf))

Por algum motivo ele não imprime nada para entradas A e A ou qualquer outra coisa. Eu também tentei fazer isso com um if then else declaração, mas mesmo resultado.

[prev code]
(blood (bt ?bt1) (acc ?acc1))
=>
(if (eq ?patient ?bt1)
then
(printout t ?bt1)
else
(printout t ?donor)))

A idéia é escrever um programa que imprime se a transfusão de sangue é segura ou não.