(deftemplate copil 
  (multislot nume)
  (slot sex)
  (slot inaltime)
  (slot culoare-par)
  (slot varsta)
)

(deffacts copii
  (copil (nume ion alexandru) (sex b) (inaltime 90) (varsta 4) (culoare-par blond))
  (copil (nume ioana maria) (sex f) (inaltime 91) (varsta 4) (culoare-par blond))
  (copil (nume ion3) (sex b) (inaltime 92) (varsta 5) (culoare-par blond))
  (copil (nume ion4) (sex f) (inaltime 92) (varsta 6) (culoare-par blond))
  (copil (nume ion5) (sex b) (inaltime 93) (varsta 3) (culoare-par blond))
  (copil (nume ion6) (sex f) (inaltime 94) (varsta 4) (culoare-par blond))
  (selectie)
)

; cei mai inalti copii pe grupe de varsta
(defrule sel5-1
  (copil (nume $?n) (inaltime ?h1) (varsta ?v))
  (not (copil (inaltime ?h2&:(> ?h2 ?h1)) (varsta ?v)))
  =>
  (printout t $?n " " ?v crlf)
)