(deffacts copii
  (copil ion b 90 blond 4)
  (copil mihai b 92 blond 5)
  (copil maria f 98 brunet 4)
  (copil mircea b 96 saten 6)
  (copil vasile b 99 brunet 6)
  (copil silvia f 88 blond 3)
  (copil silviu b 93 brunet 5)
  (copil mioara f 80 roscat 3)
)

(defrule select1
  (copil ?n ? ? blond|brunet ?)
  =>
  (printout t "Blond: " ?n crlf)
)