(deftemplate person (multislot name) (multislot children) ) (deffacts some-people (person (name John Q Public) (children Jane Paul Mary)) (person (name Rickie Lee) (children Tom George John Alexander)) ) (defrule print-children (print-children $?name) (person (name $?name) (children $?children)) => (printout t ?name "has children " ?children crlf ) ) (assert (print-children John Q Public))