有懂专家系统和CLIPS的吗

[sis_ying]

本人在学习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，所以不知道怎么运行，知道的帮助我一下

[CopperBell]

一头雾水。。。

[gongsun]

up

[wodexiaohao]

对专家系统略懂，CLIPSWIN.EXE没玩过，帮你顶下吧