Программирование в Clips. Прошу помочь найти ошибку в коде.

[@yuliya]

Здравствуйте,помогите пожалуйста выявить ошибку в коде, когда отвечаю в вопросе про студента,пишет,что студент не найден,а когда пишу имя преподавателя,то код не идет... я новичок в этом ,и прошу у вас помощи.
задачка вот такая :
На факультете работает много профессоров, читаю-
щих различные курсы. Курс может иметь несколько разделов. Профес-
сор может вести несколько курсов, а также отдельные разделы неко-
торых курсов.
Однако, каждый раздел любого курса читается только одним
профессором. Следовательно, курс, состоящий из нескольких разде-
лов может преподаваться различными профессорами.
Студент может посещать разные курсы, но он может не изучать
отдельные разделы курса.
Профессор занимает должность, не разделяемую с другими про-
фессорами.
Пара значений Имя Студента и Год уникальна.
Может быть уникальна оценка студента по данному курсу.
Информация может быть представлена отношениями:
Курсы(название,раздел,имя профессора,должность)
А 1 ЕО 281
А 3 ВК Н45
В 1 КЕ 281
и т.д.
Студенты(Имя, Год, Название курса, Раздел, Оценка)
Возможны другие форматы отношений.
Реализовать запросы:
1.О всех функциональных зависимостях между атрибутами отношений;
2.Сформировать окно, включающее список(Студент, Курс, Раздел, Преподаватель).
Запросы: 1) студент- на какие курсы он ходит
2) профессор- какие курсы он ведет
Сам код вот такой:

(assert(kurs c++ 1 Ivanov dotsent))
(assert(kurs c++ 2 Abdulaev professor))
(assert(kurs c++ 3 Shvetsov k.t.n))
(assert(kurs python 1 Gorohov st.prep))
(assert(kurs python 2 Abdulaev professor))
(assert(kurs python 3 Ivanov dotsent))
(assert(kurs java 1 Borodin aspirant))
(assert(kurs java 2 Shvetsov k.t.n))
(assert(kurs java 3 Gorohov st.prep))
(assert(student Kris 1996 c++ 1 5))
(assert(student Lena 1997 python 1 5))
(assert(student Masha 1995 java 2 5))
(assert(student Kirya 1994 java 1 5))

 (defglobal ?*name* = none)

(deffunction askname (?question) 
(printout t ?question) 
(bind ?*name* (read)) 
(assert (name ?*name* )))
	

(defrule stud ""
(name ?n)
(student ?n ?god ?kurs $?) => (printout t "This kurs: " ?kurs crlf))


(defrule start
(initial-fact)
=>
(askname "Name of student? "))
-------------------------------------------------------------------------------------------------------
(defglobal ?*fam* = none)

(deffunction askfam (?question) 
(printout t ?question) 
(bind ?*fam* (read)) 
(assert (fam ?*fam* )))

(defrule stud ""
(fam ?f)
(kurs ?kurs $? ?f $?) => (printout t "This kurs from professor: " ?kurs crlf))

(defrule start
(initial-fact)
=>
(askfam "Name of professor? "))

[vasek123]

Я, конечно, все понимаю, однако, если студент- ТС на столько обленился что не знает, даже, что CLIPS по своей сути представляется лишь средой а не языком программирования(сейчас там используется язык COOL), то, это- беспредел...

Потом, если так уж не хотите учиться. то шли бы в дворники или грузчики, нынче таких профессий полно, так как таким программистам вроде вас не место в сфере IT.

p.s. И еще, почитайте



Говорят помогает...