Клипы: расчет возраста

Мне нужна функция для расчета возраста. Я только начал изучать CLIPS. Я могу подсчитать годы, но ответ неверный.

(defrule calc-age
(person (date-of-birth ?dob))
=>
    (bind ?age (- 2017 ?dob))
(printout t ?age))