有懂专家系统和CLIPS的吗

本人在学习CLIPS，遇到了一个问题，不知道到哪里寻求帮助，于是发到这里算了，高手总是有的吧，下面我贴出代码：;  ( A  X  Y) 代表: X 是 Y 的 长辈; 
(deffacts names
(A "甲" "乙")
(A "乙" "丙")
(A "乙" "丁")
(A "乙" "戊")
(A "丁" "己")
)(defrule ancestor
(A ?X ?Y)
(A ?Y ?Z)
=>
(assert (A ?X ?Z))
)(defrule ask
=>
(printout t "请输入长辈的名字:")
(bind ?x (read))
(assert (person ?x))
(printout t crlf)
)(defrule answer
(person ?x)
(A ?x ?y)
=>
(printout t ?y "是" ?x "的晚辈" crlf)
)这段代码如何运行呢，我用的环境是CLIPSWIN.EXE，因为这里面有多个defrule，所以不知道怎么运行，知道的帮助我一下