;
; 	SYSTEM EKSPERCKI z doborem rasy pasa 
; 	zrodla: "Leksykon przyrody - PSY" wydawnictwo DELTA
;		"Moj przyjaciel PIES" Wydawnictwo Bellona
;		 http://www.psiaki.pl
;



(deffacts dane

(start)

	(pgrupa a A owczarki)
	(pgrupa b B pinczery)
	(pgrupa c C terriery)
	(pgrupa e E szpice)
	(pgrupa f F goncze)
	(pgrupa g G wyzly)
	(pgrupa h H wodne)
	(pgrupa i I ozdobne)
	(pgrupa j J charty)

	(pwlos a A krotki)
	(pwlos b B dlugi)
	(pwlos c C gladki)
	(pwlos d D szorstki)
	(pwlos o O OBOJETNIE)

	(pdominacja a A ulegly)
	(pdominacja b B posredni)
	(pdominacja c C dominujacy)
	(pdominacja o O OBOJETNIE)

	(paktywny a A malo)
	(paktywny b B dosyc)
	(paktywny c C bardzo)
	(paktywny o O OBOJETNIE)

	(pdzieci a A TAKs)
	(pdzieci b B TAKz)
	(pdzieci c C NIE)
	(pdzieci o O OBOJETNIE)

	(pmiejsce a A malemieszkanie)
	(pmiejsce b B duzemieszkanie)
	(pmiejsce c C dom)
	(pmiejsce d D domzwybiegiem)
	(pmiejsce o O OBOJETNIE)

	(pspacery a A do20)
	(pspacery b B 21do40)
	(pspacery c C 41do60)
	(pspacery d D od60)
	(pspacery o O OBOJETNIE)

	(pprzeznaczenie a A towarzystwo)
	(pprzeznaczenie b B praca)
	(pprzeznaczenie c C obroncastroz)
	(pprzeznaczenie d D mysliwski)
	(pprzeznaczenie e E pasterski)
	(pprzeznaczenie o O OBOJETNIE)
	
	

)

(defrule zaczynamy
?x <- (start)
	=>
	(retract ?x)
	(printout t crlf " " crlf crlf)
	(printout t "    *******************************************************" crlf)
	(printout t "    **                                                   **" crlf)
	(printout t "    **     System Ekspercki,                             **" crlf)
	(printout t "    **        ktory pomoze wybrac Tobie                  **" crlf)
	(printout t "    **        rase psa odpowiedna dla Twoich potrzeb     **" crlf)
	(printout t "    **                                                   **" crlf)
	(printout t "    **    -------------------------------------------    **" crlf)
	(printout t "    **                                                   **" crlf)
	(printout t "    **       Autor: xxxxxxxxxxxxxxx                      **" crlf)
	(printout t "    **       Indeks: yyyyyyy                             **" crlf)
	(printout t "    **                                                   **" crlf)
	(printout t "    *******************************************************" crlf crlf crlf)
	(assert (jakas_grupa)))



;************************************************ CZY KONKRETNA GRUPA

(defrule CZY_GRUPA
	?i<-(jakas_grupa)
	=>
	(retract ?i)
(printout t crlf "-----------------------------------------------------------------------
 Czy chcesz aby pies nalezal do konkretnej grupy FCI? (t/n) 
----------------------------------------------------------------------- 
 Odpowiedz: " )
	(assert (jakas_grupa(read))))


(defrule czygr_TAK
	?i<-(jakas_grupa ?x&t|T)
	=>
	(retract ?i)
	(assert (jaka_grupa)))

(defrule czygr_NIE
	?i<-(jakas_grupa ?x&n|N)
	=>
	(retract ?i)
	(assert (grupa OBOJETNIE)
		(dane1)))

(defrule czygr_DANA
	?i<-(jakas_grupa ?x&~n|~N|~t|~T)
	=>
	(retract ?i)
        (printout t crlf "Podales niepoprawna odpowiedz!" crlf crlf)
	(assert (jakas_grupa)))



;************************************************ GRUPA

(defrule JAKA_GRUPA
	?i<-(jaka_grupa)
	=>
	(retract ?i)
(printout t crlf "-----------------------------------------------------------------------
 Jaka grupa FCI Cie interesuje?
-----------------------------------------------------------------------
 a) Owczarki i psy pasterskie
 b) Pinczery, sznaucery i molsowate 
 c) Teriery
 d) Teckele *
 e) Szpice i psy ras prymitywalnych
 f) Psy goncze i posokowce
 g) Wyzly (legawce, ogary)
 h) Psy aportujace i tropiace oraz wodne
 i) Psy ozdobne i do towarzystwa
 j) Charty" crlf crlf
" Wybieram: ")
	(assert(jaka_grupa(read))))


(defrule gr_TAK_jamniki
	?i<-(jaka_grupa d|D)
	=>
	(retract ?i)
	(printout t crlf crlf  " Wybrales IV grupe FCI, ktora zawiera tylko psy rasy "jamnik". 
 Pozostaje Ci odpowiedziec na tylko jedno pytanie. ")
	(assert (grupa jamniki)
		(wysokosc 21)
		(jaki_wlos)))


(defrule gr_TAK
	?i<-(jaka_grupa ?x&~d|~D)
	(pgrupa ?a ?b $?r)
	(test (or (eq ?x ?a) 
		  (eq ?x ?b)))
	=>
	(retract ?i)
	(assert (grupa $?r)
		(dane1)))

(defrule gr_NIE
	?i<-(jaka_grupa ?x)
	(not (wynik5 $?a ?x $?b)) 
	=>
	(retract ?i)
	(printout t crlf " NIE MA TAKIEJ OPCJI!! Wybierz poprawna odpowiedz (a-j): ")
 	(assert(jaka_grupa(read))))


(defrule WYGLAD
?x <- (dane1)
	=>
	(retract ?x)
	(printout t crlf crlf "       +-----------------------------------------------------+" crlf)
	(printout t "       |                    WYGLAD                           |" crlf)
	(printout t "       +-----------------------------------------------------+" crlf crlf)      		(assert (wyglad1)))


(defrule pytanie_pom1
	?i<-(wyglad1)
	=>
	(retract ?i)
(printout t crlf "-----------------------------------------------------------------------
 Czy wyglad i rozmiar psa sa dla Ciebie wazne?
-----------------------------------------------------------------------
 t) TAK (przejscie do pytan zwiazanych z wygladem)
 n) NIE (ominiecie pytan zwiazanych z wygladem)  
 Odpowiedz: " )
	(assert (wyglad1(read))))


(defrule spr_TAK_pom
	?i<-(wyglad1 ?x&t|T)
	=>
	(retract ?i)
	(assert (jaki_rozmiar)))

(defrule spr_NIE_pom
	?i<-(wyglad1 ?x&n|N)
	=>
	(retract ?i)
	(assert (wysokosc OBOJETNIE)
		(wlos OBOJETNIE)
		(dane2)))

(defrule spr_DANA_pom
	?i<-(wyglad1 ?x&~n|~N|~t|~T)
	=>
	(retract ?i)
        (printout t crlf "Podales niepoprawna odpowiedz!" crlf crlf)
	(assert (wyglad1)))


;************************************************ ROZMIAR

(defrule WYSOKOSC
	?i<-(jaki_rozmiar)
	=>
	(retract ?i)
	(printout t crlf "----------------------------------------------------------------------- 
 Jakiej mniej wiecej wysokosci ma byc pies (zakres: od 20 do 90 w cm)?
 WYBIERZ - 0 - jesli jest to OBOJETNE.
-----------------------------------------------------------------------
 Twoja odpowiedz: ")
	(assert(jaki_rozmiar(read))))



(defrule wzrost_TAK1
	?i<-(jaki_rozmiar ?x)
	(not (grupa owczarki))
	(test (integerp ?x))
	(test (and (>= ?x 20)
		   (<= ?x 90)))	
	=>
	(retract ?i)
	(assert (wysokosc ?x)
		(jaki_wlos)))

(defrule wzrost_TAK2
	?i<-(jaki_rozmiar ?x)
	(test (integerp ?x))
	(test (= ?x 0))	
	=>
	(retract ?i)
	(assert (wysokosc OBOJETNIE)
		(jaki_wlos)))


(defrule wzrost_TAK_OWCZARKI
	?i<-(jaki_rozmiar ?x)
	(grupa owczarki)
	(test(integerp ?x))
	(test (<> ?x 0))
	(test (or (and 	(>= ?x 34)
		     	(<= ?x 40))
		  (and	(>= ?x 52)
			(<= ?x 78))))
	=>
	(retract ?i)
	(assert (wysokosc ?x)
		(jaki_wlos)))


(defrule wzrost_NIE_OWCZARKI
	?i<-(jaki_rozmiar ?x)
	(grupa owczarki)
	(test(integerp ?x))
	(test (<> ?x 0))
	(test (or (< ?x 34)
		  (and	(> ?x 40)
			(< ?x 52))
		  (> ?x 78)))
	=>
	(retract ?i)
(printout t crlf " W grupie OWCZARKOW nie ma psa o takich rozmiarach w klebie
 Twoja odpowiedz (liczba z zakresu: 34-40, 52-78 lub 0 gdy NIE WIESZ): " )
	(assert(jaki_rozmiar(read))))



(defrule wzrost_NIE_LICZBA
	?i<-(jaki_rozmiar ?x)
	(test(not (integerp ?x)))
	=>
	(retract ?i)
	(printout t crlf " PODAJ LICZBE CALKOWITA!! Podaj poprawna odpowiedz: " )
	(assert(jaki_rozmiar(read))))



(defrule wzrost_NIE
	?i<-(jaki_rozmiar ?x)
	(test(integerp ?x))
	(test (<> ?x 0))
	(test (or (> ?x 90)
		  (< ?x 20)))
	=>
	(retract ?i)
(printout t crlf " Podana wartos jest zla (nie ma psa o takich rozmiarach w klebie
 Twoja odpowiedz (liczba z zakresu: 20-90 lub 0 gdy NIE WIESZ): " )
	(assert(jaki_rozmiar(read))))






;************************************************ SIERSC

(defrule WLOS
	?i<-(jaki_wlos)
	=>
	(retract ?i)
	(printout t crlf "----------------------------------------------------------------------- 
 Jaki rodzaj wlosa ma miec pies?
-----------------------------------------------------------------------
 a) Krotki
 b) Dlugi
 c) Gladki
 d) Szorstki
 o) NIE WIEM" crlf crlf
" Twoja odpowiedz (a-d lub o): ")
	(assert(jaki_wlos(read))))


(defrule wlos_TAK_JAMNIKI
	?i<-(jaki_wlos ?x)
	(grupa jamniki)
	(pwlos ?a ?b $?r)
	(test (or (eq ?x ?a) 
		  (eq ?x ?b)))
	=>
	(retract ?i)
	(assert (wlos $?r)
		(dominacja posredni)
		(aktywny dosyc)
		(dzieci TAKs)
		(miejsce malemieszkanie)
		(spacer 21do40)
		(przeznaczenie mysliwski)
		(wydatki 111do160)
		(koniec)))


(defrule wlos_TAK
	?i<-(jaki_wlos ?x)
	(grupa ~jamniki)
	(pwlos ?a ?b $?r)
	(test (or (eq ?x ?a) 
		  (eq ?x ?b)))
	
	=>
	(retract ?i)
	(assert (wlos $?r))
	(assert (dane2)))

(defrule wlos_NIE
	?i<-(jaki_wlos ?x)
	(not(pwlos $?a1 ?x $?a2))
	=>
	(retract ?i)
	(printout t crlf " NIE MA TAKIEJ OPCJI!! Wybierz poprawna odpowiedz (a-d lub o): " )
	(assert(jaki_wlos(read))))






;************************************************

(defrule dane_CHARAKTER
?x <- (dane2)
	=>
	(retract ?x)
	(printout t crlf crlf "       +-----------------------------------------------------+" crlf)
	(printout t "       |             CHARAKTER, USPOSOBIENIE                 |" crlf)
	(printout t "       +-----------------------------------------------------+" crlf crlf)      		(assert (czy_dominujacy)))


;************************************************ DOMINACJA

(defrule DOMINACJA
	?i<-(czy_dominujacy)
	=>
	(retract ?i)
	(printout t crlf "----------------------------------------------------------------------- 
 Czy pies ma byc:
-----------------------------------------------------------------------
 a) ulegly
 b) posredni
 c) dominujacy
 o) OBOJETNIE" crlf crlf
" Twoja odpowiedz (a-c lub o): ")
	(assert(czy_dominujacy(read))))


(defrule dom_TAK
	?i<-(czy_dominujacy ?x)
	(pdominacja ?a ?b $?r)
	(test (or (eq ?x ?a) 
		  (eq ?x ?b)))
	=>
	(retract ?i)
	(assert (dominacja $?r))
	(assert (czy_aktywny)))

(defrule dom_NIE
	?i<-(czy_dominujacy ?x)
	(not(pdominacja $?a1 ?x $?a2))
	=>
	(retract ?i)
	(printout t crlf " NIE MA TAKIEJ OPCJI!! Wybierz poprawna odpowiedz (a-c lub o): " )
	(assert(czy_dominujacy(read))))




;************************************************ AKTYWNOSC

(defrule AKTYWNOSC
	?i<-(czy_aktywny)
	=>
	(retract ?i)
	(printout t crlf "----------------------------------------------------------------------- 
 Czy pies w domu ma byc:
-----------------------------------------------------------------------
 a) malo aktywny
 b) dosyc aktywny
 c) bardzo aktywny
 o) OBOJETNIE" crlf crlf
" Twoja odpowiedz (a-c lub o): ")
	(assert(czy_aktywny(read))))


(defrule akt_TAK
	?i<-(czy_aktywny ?x)
	(paktywny ?a ?b $?r)
	(test (or (eq ?x ?a) 
		  (eq ?x ?b)))
	=>
	(retract ?i)
	(assert (aktywny $?r))
	(assert (czy_dzieci)))

(defrule akt_NIE
	?i<-(czy_aktywny ?x)
	(not(paktywny $?a1 ?x $?a2))
	=>
	(retract ?i)
	(printout t crlf " NIE MA TAKIEJ OPCJI!! Wybierz poprawna odpowiedz (a-c lub o): " )
	(assert(czy_aktywny(read))))



;************************************************ CZY DZIECI

(defrule DZIECI
	?i<-(czy_dzieci)
	=>
	(retract ?i)
	(printout t crlf "----------------------------------------------------------------------- 
 Czy pies bedzie przebywal (bawil sie) z dziecmi:
-----------------------------------------------------------------------
 a) TAK
 b) TAK TYLKO POD NADZOREM
 c) NIE
 o) NIE WIEM" crlf crlf
" Twoja odpowiedz (a-c lub o): ")
	(assert(czy_dzieci(read))))


(defrule dz_TAK
	?i<-(czy_dzieci ?x)
	(pdzieci ?a ?b $?r)
	(test (or (eq ?x ?a) 
		  (eq ?x ?b)))
	=>
	(retract ?i)
	(assert (dzieci $?r))
	(assert (dane3)))

(defrule dz_NIE
	?i<-(czy_dzieci ?x)
	(not(pdzieci $?a1 ?x $?a2))
	=>
	(retract ?i)
	(printout t crlf " NIE MA TAKIEJ OPCJI!! Wybierz poprawna odpowiedz (a-c lub o): " )
	(assert(czy_dzieci(read))))


;************************************************

(defrule dane_DODATKOWE
?x <- (dane3)
	=>
	(retract ?x)
	(printout t crlf crlf "       +-----------------------------------------------------+" crlf)
	(printout t "       |                  DODATKOWE DANE                     |" crlf)
	(printout t "       +-----------------------------------------------------+" crlf crlf)      		(assert (gdzie_bedzie)))



;************************************************ MIEJSCE

(defrule MIEJSCE
	?i<-(gdzie_bedzie)
	=>
	(retract ?i)
	(printout t crlf "----------------------------------------------------------------------- 
 Gdzie bedzie mieszkal pies?
-----------------------------------------------------------------------
 a) W malym mieszkaniu
 b) W duzym mieszkaniu
 c) W domu
 d) W domu z wybiegiem
 o) NIE WIEM" crlf crlf
" Twoja odpowiedz (a-d lub o): ")
	(assert(gdzie_bedzie(read))))


(defrule miejsce_TAK
	?i<-(gdzie_bedzie ?x)
	(pmiejsce ?a ?b $?r)
	(test (or (eq ?x ?a) 
		  (eq ?x ?b)))
	=>
	(retract ?i)
	(assert (miejsce $?r))
	(assert (ile_spacer)))

(defrule miejsce_NIE
	?i<-(gdzie_bedzie ?x)
	(not(pmiejsce $?a1 ?x $?a2))
	=>
	(retract ?i)
	(printout t crlf " NIE MA TAKIEJ OPCJI!! Wybierz poprawna odpowiedz (a-d lub o): " )
	(assert(gdzie_bedzie(read))))



;************************************************ SPACER

(defrule SPACER
	?i<-(ile_spacer)
	=>
	(retract ?i)
	(printout t crlf "----------------------------------------------------------------------- 
 Ile jestes w stanie przeznaczyc na codzienne spacery?
-----------------------------------------------------------------------
 a) do 20 minut
 b) od 21 minut do 40 minut
 c) od 41 minut do 1 gdziny
 d) ponad 1 gdzine
 o) NIE WIEM" crlf crlf
" Twoja odpowiedz (a-c lub o): ")
	(assert(ile_spacer(read))))


(defrule spacer_TAK
	?i<-(ile_spacer ?x)
	(pspacery ?a ?b $?r)
	(test (or (eq ?x ?a) 
		  (eq ?x ?b)))
	=>
	(retract ?i)
	(assert (spacer $?r))
	(assert (jakie_przeznaczenie)))

(defrule spacer_NIE
	?i<-(ile_spacer ?x)
	(not(pspacery $?a1 ?x $?a2))
	=>
	(retract ?i)
	(printout t crlf " NIE MA TAKIEJ OPCJI!! Wybierz poprawna odpowiedz (a-d lub o): " )
	(assert(ile_spacer(read))))



;************************************************ PRZEZNACZENIE

(defrule PRZEZNACZENIE
	?i<-(jakie_przeznaczenie)
	=>
	(retract ?i)
	(printout t crlf "----------------------------------------------------------------------- 
 Czy ma to byc pies:
-----------------------------------------------------------------------
 a) do towarzystwa
 b) do pracy (przewodnik, ratownik)
 c) do obrony, strozowania
 d) mysliwski, gonczy
 e) pasterski
 o) NIE WIEM" crlf crlf
" Twoja odpowiedz (a-c lub o): ")
	(assert(jakie_przeznaczenie(read))))


(defrule przezn_TAK1
	?i<-(jakie_przeznaczenie e|E)
	(not (or (grupa pinczery)
	         (grupa owczarki)
		 (grupa OBOJETNIE)))
	=>
	(retract ?i)
	(printout t crlf crlf " Wybrales grupe FCI, w ktorej nie wystepuja psy pasterskie.
 Wybierz inne przeznaczenie psa! " )
	(assert(jakie_przeznaczenie)))


(defrule przezn_TAK2
	?i<-(jakie_przeznaczenie ?x&~e|~E)
	(pprzeznaczenie ?a ?b $?r)
	(test (or (eq ?x ?a) 
		  (eq ?x ?b)))
	=>
	(retract ?i)
	(assert (przeznaczenie $?r))
	(assert (jakie_wydatki)))


(defrule przezn_NIE
	?i<-(jakie_przeznaczenie ?x)
	(not(pprzeznaczenie $?a1 ?x $?a2))
	=>
	(retract ?i)
	(printout t crlf " NIE MA TAKIEJ OPCJI!! Wybierz poprawna odpowiedz (a-e lub o): " )
	(assert(jakie_przeznaczenie(read))))


;************************************************ WYDATKI

(defrule WYDATKI
	?i<-(jakie_wydatki)
	=>
	(retract ?i)
	(printout t crlf "----------------------------------------------------------------------- 
 Jaka sume miesiecznie chcesz wydawac na psa (zakres: od 60 do 400 zl)?
 WYBIERZ - 0 - jesli jest to OBOJETNE.
-----------------------------------------------------------------------
Miesieczny koszt utrzymania obejmuje wyzywienie karma dobrej jakosci, 
szczepienia, strzyzenie (jesli jest wymagane dla rasy) i podstawowa opieke weterynaryjna." crlf crlf
" Twoja odpowiedz: ")
	(assert(jakie_wydatki(read))))


(defrule wydatki_NIE_LICZBA
	?i<-(jakie_wydatki ?x)
	(test(not (numberp ?x)))
	=>
	(retract ?i)
	(printout t crlf " TO NIE JEST LICZBA!! Odpowiedz: " )
	(assert(jakie_wydatki(read))))

(defrule wydatki_TAK1
	?i<-(jakie_wydatki ?x)
	(test (numberp ?x))
	(test (and (>= ?x 60)
		   (<= ?x 110)))	
	=>
	(retract ?i)
	(assert (wydatki 60do110)(koniec)))

(defrule wydatki_TAK12
	?i<-(jakie_wydatki ?x)
	(test (numberp ?x))
	(test (and (> ?x 110)
		   (<= ?x 160)))	
	=>
	(retract ?i)
	(assert (wydatki 111do160)(koniec)))

(defrule wydatki_TAK13
	?i<-(jakie_wydatki ?x)
	(test (numberp ?x))
	(test (and (> ?x 160)
		   (<= ?x 200)))	
	=>
	(retract ?i)
	(assert (wydatki 161do200)(koniec)))

(defrule wydatki_TAK14
	?i<-(jakie_wydatki ?x)
	(test (numberp ?x))
	(test (and (> ?x 200)
		   (<= ?x 250)))	
	=>
	(retract ?i)
	(assert (wydatki 201do250)(koniec)))

(defrule wydatki_TAK15
	?i<-(jakie_wydatki ?x)
	(test (numberp ?x))
	(test (and (> ?x 250)
		   (<= ?x 300)))	
	=>
	(retract ?i)
	(assert (wydatki 251do300)(koniec)))

(defrule wydatki_TAK16
	?i<-(jakie_wydatki ?x)
	(test (numberp ?x))
	(test (and (> ?x 300)
		   (<= ?x 400)))	
	=>
	(retract ?i)
	(assert (wydatki od300)(koniec)))

(defrule wydatki_TAK2
	?i<-(jakie_wydatki ?x)
	(test (numberp ?x))
	(test (= ?x 0))	
	=>
	(retract ?i)
	(assert (wydatki OBOJETNE)(koniec)))

(defrule wydatki_NIE
	?i<-(jakie_wydatki ?x)
	(test(numberp ?x))
	(test (<> ?x 0))
	(test (or (> ?x 400)
		  (< ?x 60)))
	=>
	(retract ?i)
(printout t crlf " Podana wartos jest zla!!!
 Twoja odpowiedz (liczba z zakresu: 60-400 lub 0 gdy OBOJETNIE): " )
	(assert(jakie_wydatki(read))))


;************************************************************************ ZAKONCZENIE


(defrule ZNALEZIONY
	?i <- (koniec)
	(grupa ?gr)
	(wysokosc ?wy)
	(wlos ?wl)
	(dominacja ?do)
	(aktywny ?ak)
	(dzieci ?dz)
	(miejsce ?mi)
	(spacer ?sp)
	(przeznaczenie ?pr)
	(wydatki ?wyd)
	(test 	(or 	(neq ?gr OBOJETNIE) 
			(neq ?wy OBOJETNIE) 
			(neq ?do OBOJETNIE) 
			(neq ?wl OBOJETNIE) 
			(neq ?ak OBOJETNIE) 
			(neq ?dz OBOJETNIE) 
			(neq ?mi OBOJETNIE) 
			(neq ?sp OBOJETNIE)
			(neq ?pr OBOJETNIE)
			(neq ?wyd OBOJETNE)))
	=>
	(retract ?i)
	(assert (pies))
	(printout t crlf "          +-------------------------------------------------------+
          |                                                       |
          |          RASY ODPOWIEDNIE DLA CIEBIE!                 |
          |                                                       |
          +-------------------------------------------------------+ " crlf))



(defrule KIEDY_NIC_NIE_PODANO
	?i <- (koniec)
	(grupa OBOJETNIE)
	(wysokosc OBOJETNIE)
	(dominacja OBOJETNIE)
	(aktywny OBOJETNIE)
	(dzieci OBOJETNIE)
	(wlos OBOJETNIE)
	(miejsce OBOJETNIE)
	(spacer OBOJETNIE)
	(przeznaczenie OBOJETNIE)
	(wydatki OBOJETNE)
	=>
	(retract ?i)
	(printout t crlf crlf crlf crlf crlf "  **** NIE PODANO ZADNEJ KONKRETNEJ ODPOWIEDZI! ****" crlf)
	(assert (zobaczyc_chce)))


(defrule KIEDY_NIC_NIE_MOZE_CHCESZ
	?i <- (zobaczyc_chce)
	=>
	(retract ?i)
	(printout t crlf "-----------------------------------------------------------------------
 
 Poniewaz, zadna z Twoich odpowiedzi nie byla konkretna
 moze chcesz przejrzec wszystkie rasy psow znajdujace sie w bazie?
-----------------------------------------------------------------------
 t) tak 
 n) nie" crlf crlf)
	(printout t " Odpowiedz: " )
	(assert (zobaczyc_chce(read))))


(defrule KIEDY_NIC_NIE_MOZE_CHCESZ_TAK
	?i<-(zobaczyc_chce ?x&t|T)
	=>
	(retract ?i)
	(assert (pies))
	(printout t crlf "          +-------------------------------------------------------+
          |                                                       |
          |                      RASY PSOW!                       |
          |                                                       |
          +-------------------------------------------------------+ " crlf))


(defrule KIEDY_NIC_NIE_MOZE_CHCESZ_NIE
	?i<-(zobaczyc_chce ?x&n|N)
	=>
	(retract *)
	(assert (jeszcze)))

(defrule KIEDY_NIC_NIE_MOZE_CHCESZ_DANA
	?i<-(zobaczyc_chce ?x&~n|~N|~t|~T)
	=>
	(retract ?i)
        (printout t crlf "Podales niepoprawna odpowiedz!" crlf crlf)
	(assert (zobaczyc_chce)))



;************************************************************************ JESZCZE RAZ

(defrule CZY_ZACZAC
	?i <- (jeszcze)
	=>
	(retract ?i)
(printout t crlf crlf crlf "-----------------------------------------------------------------------
 Czy chcesz sprobowac jeszcze raz wybrac psa dla siebie? (t/n) 
----------------------------------------------------------------------- 
 Odpowiedz: " )
	(assert (jeszcze (read))))

(defrule czyjeszcze_TAK
	?i<-(jeszcze ?x&t|T)
	=>
	(retract ?i)
	(reset)
	(run)
	(assert(start)))

(defrule czyjeszcze_NIE
	?i<-(jeszcze ?x&n|N)
	=>
	(retract ?i)
	(printout t crlf crlf crlf 
" =======================================================================
 |             DZIEKUJE ZA SKORZYSTANIE Z SYSTEMU!                     |
 =======================================================================" crlf crlf crlf))

(defrule czyjeszcze_DANA
	?i<-(jeszcze ?x&~n|~N|~t|~T)
	=>
	(retract ?i)
        (printout t crlf "Podales niepoprawna odpowiedz!" crlf crlf)
	(assert (jeszcze)))





(defrule NIE_MA
	(not(brak))
	=>
	(printout t crlf crlf "*** NIESTETY, NIE ZNALEZIONO PSA SPELNIAJACEGO KRYTERIA!! ***" crlf)
	(assert (jeszcze)))



;********************************************************************** PSY

(defrule owczarek_niemiecki_dlugowlosy
	(pies)
	(grupa owczarki|OBOJETNIE)
	(wysokosc 55|56|57|58|59|60|61|62|63|64|65|66|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie praca|obroncastroz|towarzystwo|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf  "     ======>  OWCZAREK NIEMIECKI DLUGOWLOSY  <====== 
 Inteligentny, szybko i chetnie sie uczacy. 
 Najbardziej wszechstronna rasa psow. 
 Nadaje sie na psy uzytkowe i do towarzystwa." crlf))

(defrule owczarek_niemiecki_krotkowlosy
	(pies)
	(grupa owczarki|OBOJETNIE)
	(wysokosc 55|56|57|58|59|60|61|62|63|64|65|66|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie praca|obroncastroz|towarzystwo|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf  "     ======>  OWCZAREK NIEMIECKI KROTKOWLOSY  <====== 
 Inteligentny, szybko i chetnie sie uczacy. 
 Najbardziej wszechstronna rasa psow. 
 Nadaje sie na psy uzytkowe i do towarzystwa." crlf))

(defrule owczarek_belgijski_Groendael
	(pies)
	(grupa owczarki|OBOJETNIE)
	(wysokosc 58|59|60|61|62|63|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie praca|obroncastroz|pasterski|towarzystwo|OBOJETNIE)
	(wydatki 161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  OWCZAREK BELGIJSKI (GROENENDAEL)  <======
 Pies swietnie nadajacy się do psich sportow, 
 z duzym temperamentem, bardzo szybko sie uczy, 
 wlascicielem tej rasy moze byc tylko osoba bardzo aktywna." crlf))

(defrule owczarek_szkocki
	(pies)
	(grupa owczarki|OBOJETNIE)
	(wysokosc 52|53|54|55|56|57|58|59|60|61|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|obroncastroz|pasterski|OBOJETNIE)
	(wydatki 161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  OWCZAREK SZKOCKI (COLLIE ROUGH)  <======
 Bardzo reprezentacyjny i inteligentny pies rodzinny,
 wyjatkowo przywiazany do wlasciciela" crlf))

(defrule owczarek_szetlandzki
	(pies)
	(grupa owczarki|OBOJETNIE)
	(wysokosc 34|35|36|37|38|39|40|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie towarzystwo|pasterski|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  OWCZAREK SZETLANDZKI  <======
 Maly pies z duzym temperamentem.
 Rasa na ktora nie nalezy podnosic glosu" crlf))

(defrule owczarek_sratoangielski
	(pies)
	(grupa owczarki|OBOJETNIE)
	(wysokosc 52|53|54|55|56|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie towarzystwo|pasterski|obronasrtoz|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  OWCZAREK SZTAROANGIELSKI (BOBTAIL)  <======
 Pies pewny siebie, lagodny i posluszny, oddany właścicielowi. 
 Nie wykazuje lekliwosci, czy nieuzasadnionej agresji." crlf))

(defrule owczarek_francuski
	(pies)
	(grupa owczarki|OBOJETNIE)
	(wysokosc 61|62|63|64|65|66|67|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie dotowarzystwa|pasterski|obronastroz|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  OWCZAREK FRANCUSKI (BRIARD)  <======
 Oddany i przywiazany, cichy i pelen godnosci pies. 
 Nieprzekupny stroz i obronca, uzywajacy z umiarem swojej sily. 
 Dosc klopotliwa pielegnacja wlosa." crlf))

(defrule komondor
	(pies)
	(grupa owczarki|OBOJETNIE)
	(wysokosc 68|69|70|71|72|73|74|75|76|77|78|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie pasterski|towarzystwo|OBOJETNIE)
	(wydatki od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  KOMONDOR  <======
 Rasa malo posluszna, nieodpowiednia dla dzieci.
 Moze byc agresywny w stosunku do innych psow." crlf))

(defrule doberman
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 64|65|66|67|68|69|70|71|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie obronastroz|praca|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  DOBERMAN  <======
 Efektowny, elegancki, kontaktowy, pelen temperamentu pies.
 Stanowczo nie odpowiedni dla dzieci!!" crlf))

(defrule pinczer_miniarurowy
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 25|26|27|28|29|30|31|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|250do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  PINCZER MINIATUROWY (RATLEREK)  <======
 Pies o zywym temperamencie, odwazny, bystry i spostrzegawczy. 
 Bywa szczekliwy. Ciezko nauczyc go czystosci." crlf))

(defrule sznaucer_miniarurowy
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 32|33|34|35|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|250do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  SZNAUCER MINIATUROWY (BRODACZ MONACHIJSKI)  <======
 Szybko sie uczy. Nie gubi prawie wlosa.
 Moze byc agresywny w stosunku do innych psow." crlf))

(defrule sznaucer_sredni
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 43|44|45|46|47|48|49|50|51|52|53|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|obronastroz|OBOJETNIE)
	(wydatki 161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  SZNAUCER SREDNI (BRODACZ MONACHIJSKI)  <======
 Pies rodzinny, towarzyski, lubiacy zabawe. 
 Odwazny, a nawet agresywny w sytuacjach wymagających obrony.
 Moze miec skolonnosci do ucieczek." crlf))

(defrule sznaucer_olbrzymi
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 64|65|66|67|68|69|70|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie praca|obronastroz|OBOJETNIE)
	(wydatki 251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  SZNAUCER OLBRZYMI (BRODACZ MONACHIJSKI)  <======
 Odwazny, rodzinny, niezawodny stroz i obronca, ktory potrzebuje zdecydowanego podejscia." crlf))

(defrule bokser
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 54|55|56|57|58|59|60|61|62|63|OBOJETNIE)
	(wlos krotki|gladki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie obronastroz|towarzystwo|OBOJETNIE)
	(wydatki 161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BOKSER  <======
 Bardzo towarzyski, przyjaciel calej rodziny, zawsze chetny do zabawy. 
 Bardzo aktywny, wymagajacy aktywnosci i stalej uwagi ze strony wlasciciela.
 Moze sie intensywnie slinic!" crlf))

(defrule buldog_angielski
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 35|36|37|38|39|40|41|42|OBOJETNIE)
	(wlos krotki|gladki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BULDOG ANGIELSKI  <======
 Buldogi maja raczej lagodne usposobienie. 
 Sa czujne, nie wymagaja zbyt duzo ruchu i nie sa halasliwe.
 Moga sie intensywnie slinic." crlf))

(defrule bullmastiff
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 64|65|66|67|68|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|obronastroz|OBOJETNIE)
	(wydatki 251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BULLMASTIFF  <======
 Spokojny, zrownoważony, czujny, odwazny, posluszny.
 Chroni rodzine i terytorium.
 Cierpliwy wobec dzieci!" crlf))

(defrule dog_niemiecki
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 78|79|80|81|82|83|84|85|86|87|88|89|90|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|obronastroz|OBOJETNIE)
	(wydatki od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  DOG NIEMIECKI  <======
 Psy przyjazne, mocno przywiazane do własciciela.
 Moga sie intensywnie slinic." crlf))

(defrule mastif_angielski
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 71|72|73|74|75|76|77|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  MASTIF ANGIELSKI  <======
 Łagodny, pomimo swej mocnej i muskularnej budowy
 jest cierpliwym i oddanym psem rodzinnym.
 Wrazliwy na nagly dzwiek." crlf))

(defrule rottweiler
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 59|60|61|62|63|64|65|66|67|68|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie obronastroz|praca|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  ROTTWEILER  <======
 Dumny i niezalezny, zadziorny lecz opanowany pies o wrodzonym instynkcie
 do obrony wlasciciela i jego mienia.
 Wymaga konsekwentnego wychowania, w przeciwnym wypadku zajmie w domu dominujaca pozycje,
 a nawet moze stac sie niebezpieczny." crlf))

(defrule hovawart
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 59|60|61|62|63|64|65|66|67|68|69|70|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie praca|obronastroz|praca|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  HOVAWART  <======
 Posiadaja dosc silne poczucie dominacji,
 stad wymagaja kontaktu z ludzmi o stabilnej osobowości i konsekwentnym,
 zdecydowanym podejsciu." crlf))

(defrule kuvasz
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 68|69|70|71|72|73|74|75|OBOJETNIE)
	(wlos szorstki|dlugi|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|OBOJETNIE)
	(przeznaczenie pasterski|obronastroz|OBOJETNIE)
	(wydatki 251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  KUVASZ  <======
 Ma sklonnosc do dominacji, wymaga doswiadczonego wlasciciela.
 Nie odpowiedni dla dzieci!" crlf))

(defrule nowofundland
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 67|68|69|70|71|72|73|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie praca|towarzystwo|OBOJETNIE)
	(wydatki od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  NOWOFUNDLAND (WODOLAZ)  <======
 Oddany przyjaciel i opiekun rodziny, rowniez dzieci.
 Spokojny i cierpliwy. Nie wykazuje cech strozujaco-obronnych,
 ale stanie w obronie opiekuna w prawdziwym zagrozeniu." crlf))

(defrule bernardyn
	(pies)
	(grupa pinczery|OBOJETNIE)
	(wysokosc 70|71|72|73|74|75|76|77|78|79|80|81|OBOJETNIE)
	(wlos krotki|dlugi|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie praca|strozobrona|towarzystwo|OBOJETNIE)
	(wydatki od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BERNARDYN  <======
 Bernardyny sa lagodnymi, wiernymi i przyjacielskimi psami.
 Lojalne, spokojne, tolerancyjne w stosunku do innych zwierzat oraz dzieci.
 Ze wzgledu na masywna budowe moga bawic sie z dziecmi tylko pod nadzorem doroslych." crlf))

(defrule bedlington_terrier
	(pies)
	(grupa terriery|OBOJETNIE)
	(wysokosc 40|41|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BEDLINGTON TERRIER  <======
 Psy tej rasy sa bardzo lagodne dla czlonkow rodziny, ale wojownicze wobec innych psow,
 ma bardzo silny uchwyt szczek." crlf))

(defrule border_terrier
	(pies)
	(grupa terriery|OBOJETNIE)
	(wysokosc 24|25|26|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BORDER TERRIER  <======
 Psy tej rasy sa bardzo aktywne, chetnie penetruja otoczenie, lubia jego zmiany. 
 Nadaja sie dla dzieci." crlf))

(defrule foksterier
	(pies)
	(grupa terriery|OBOJETNIE)
	(wysokosc 36|37|38|39|40|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  FOKSTERIER  <======
 Nie posluszne, halasliwe.
 Rasa ruchliwa, weslola, ciekawska, wymagajaca sporo ruchu." crlf))

(defrule terier_walijski
	(pies)
	(grupa terriery|OBOJETNIE)
	(wysokosc 38|39|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  TERIER WALIJSKI  <======
 Skore do zabawy i wesole, rzadko bojazliwe, z reguly pewne siebie.
 Ze względu na wrodzony upor wobec innych czlonkow rodziny,
 nalezy wychowywac je konsekwentnie i odpowiedzialnie." crlf))

(defrule norwich_terrier
	(pies)
	(grupa terriery|OBOJETNIE)
	(wysokosc 25|26|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  NORWICH TERRIER  <======
 Doskonale psy rodzinne, zywe, zdrowe i wesole.
 Nadaja sie dla dzieci!
 Moga byc halasliwe." crlf))

(defrule skye_terrier
	(pies)
	(grupa terriery|OBOJETNIE)
	(wysokosc 23|24|25|26|27|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  SKYE TERRIER  <======
 Wesole, towarzyskie, odpowiednie dla dzieci.
 Lubia scigac poruszajace sie obiekty." crlf))

(defrule boston_terrier
	(pies)
	(grupa terriery|OBOJETNIE)
	(wysokosc 35|36|37|38|39|40|41|42|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BOSTON TERRIER  <======
 Łatwo adaptuje sie do zmieniajacych warunkow otoczenia, towarzyski i tolerancyjny wobec dzieci.
 Czujny, bez nadmiernej sklonnosci do szczekania." crlf))

(defrule bull_terrier
	(pies)
	(grupa terriery|OBOJETNIE)
	(wysokosc 48|49|50|51|52|53|54|55|56|57|58|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|obronastroz|OBOJETNIE)
	(wydatki 161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BULL TERRIER (BULTERIER)  <======
 Bulterier to pies o silnej sylwetce, wesoly i nieco zadziorny.
 Rasa tylko dla doswiadczonych wlascicieli" crlf))

(defrule yorkshire_terrier
	(pies)
	(grupa terriery|OBOJETNIE)
	(wysokosc 20|21|22|23|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  YORKSHIRE TERRIER  <======
 Wesole, szalone, o dekoracyjnym wygladzie.
 Wyhodowanie dlugiego wlosa jest trudne i wymaga ponoszenia dodatkowych kosztow." crlf))

(defrule staffordshire_bull_terrier
	(pies)
	(grupa terriery|OBOJETNIE)
	(wysokosc 35|36|37|38|39|40|41|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  STAFFORDSHIRE BULL TERIER  <======
 Rasa tylko dla doswiadczonych wlascicieli.
 Nie nadaje sie dla dzieci!" crlf))

(defrule jamnik_ktotkowlosy
	(pies)
	(grupa jamniki|OBOJETNIE)
	(wysokosc 20|21|22|23|24|25|OBOJETNIE)
	(wlos krotki|gladki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  JAMNIK KROTKOWLOSY (DACHSHUND)  <======
 Niezalezny i samodzielny - nieodpowiedni dla ludzi o slabym charakterze. 
 Idealny do malych mieszkan - nie brudzi, nie zajmuje miejsca." crlf))

(defrule jamnik_dlugowlosy
	(pies)
	(grupa jamniki|OBOJETNIE)
	(wysokosc 20|21|22|23|24|25|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  JAMNIK DLUGOWLOSY (DACHSHUND)  <======
 Jamnik to pies bardzo zywy, odwazny, czujny i inteligentny. 
 Pomimo ze jest silnie przywiazany do swojego opiekuna,
 nadal zachowuje wrodzona niezaleznosc." crlf))

(defrule jamnik_szorstkowlosy
	(pies)
	(grupa jamniki|OBOJETNIE)
	(wysokosc 20|21|22|23|24|25|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  JAMNIK SZORSTKOWLOSY (DACHSHUND)  <======
 Od szczeniecia wymaga konsekwencji przy wychowaniu oraz dobrego kontaktu z opiekunem, 
 bowiem w przeciwnym wypadku moze sie rozwinać u psa zlosliwy i nieprzyjemny charakter." crlf))

(defrule husky_syberyjski
	(pies)
	(grupa szpice|OBOJETNIE)
	(wysokosc 52|53|54|55|56|57|58|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie praca|towarzystwo|OBOJETNIE)
	(wydatki 161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  HUSKY SYBERYJSKI  <======
 Diabelek o oczach aniolka. Tylko dla ludzi aktywnych, mogacych poswięecic mu duzo czasu.
 Nie dla poczatkujacych.
 Nie moze byc pozostawiany sam w domu" crlf))

(defrule alaskan_malmaute
	(pies)
	(grupa szpice|OBOJETNIE)
	(wysokosc 58|59|60|61|62|63|64|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie praca|towarzystwo|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  ALASKAN MALMAUTE  <======
 Inteligentny, przyjacielsko nastawiony do ludzi, o dobrym zdrowiu, bardzo niezalezny.
 Latwy w utrzymaniu.
 Nie moze byc pozostawiany sam w domu" crlf))

(defrule szpic_niemiecki_miniaturowy
	(pies)
	(grupa szpice|OBOJETNIE)
	(wysokosc 20|21|22|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie obroncastroz|towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  SZPIC NIEMIECKI MINIATUROWY  <======
 Najmniejsze ze szpicow.
 Inteligentny, o ciekawym wygladzie, zadziorny wobec innych psow, nawet duzych.
 Moze byc halasliwy." crlf))

(defrule szpic_japonski
	(pies)
	(grupa szpice|OBOJETNIE)
	(wysokosc 31|32|33|34|35|36|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  SZPIC JAPONSKI  <======
 Bardzo posluszny, szybko uczacy sie.
 Nadaje sie do wychowywania z dziecmi.
 Bywa szczekliwy!" crlf))

(defrule chow_chow
	(pies)
	(grupa szpice|OBOJETNIE)
	(wysokosc 46|47|48|49|50|51|52|53|54|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  CHOW-CHOW  <======
 Lubia byc w centrum zainteresowania. Maja dobry kontakt z ludzmi.
 Sa spokojne, lubia spacery. Dorosle psy juz nie wiedza co to zabawa." crlf))


(defrule basenji
	(pies)
	(grupa szpice|OBOJETNIE)
	(wysokosc 40|41|42|43|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BASENJI  <======
 Madry, pojetny, wesoly i wierny pies, zazwyczaj nieklopotliwy. 
Jest bardzo energiczny, lubi przebywac w cieplejszych warunkach.
 Nie ufny wobec obcych, czasem nawet agresywny." crlf))

(defrule bloodhound
	(pies)
	(grupa goncze|OBOJETNIE)
	(wysokosc 60|61|62|63|64|65|67|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie praca|mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BLOODHOUND (PIES SW. HUBERTA)  <======
 W stosunku do obcych nieufny.
 Dla znanych mu osob lagodny i serdeczny.
 Moze sie intensywnie slinic." crlf))

(defrule foxhound
	(pies)
	(grupa goncze|OBOJETNIE)
	(wysokosc 58|59|60|61|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  FOXHOUND  <======
 Moze byc halasliwy
 Z trudem daje sie nauczyc czystosci
 Lubi scigac poruszajace sie obiekty" crlf))

(defrule beagle
	(pies)
	(grupa goncze|OBOJETNIE)
	(wysokosc 35|36|37|38|39|40|41|42|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BEAGLE  <======
 Musi byc starannie pilnowany, poniewaz ma tendencje do ucieczek i wloczegi.
 Nalezy zachować ostroznosc przy karmieniu, bo z powodu lakomstwa latwo tyje." crlf))

(defrule basset_hound
	(pies)
	(grupa goncze|OBOJETNIE)
	(wysokosc 21|22|23|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BESSET HOUND  <======
 Zaletami jego sa wytrwalosc, odwaga i karnosc.
 Jest odporny, wierny i oddany." crlf))

(defrule posokowiec_bawarski
	(pies)
	(grupa goncze|OBOJETNIE)
	(wysokosc 46|47|48|50|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie praca|mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  POSOKOWIEC BAWARSKI  <======
 Spokojny i zrownowazony, przywiazany do swego wlasciciela,
 powsciagliwy w stosunku do obcych.
 Trudny w ukladaniu." crlf))

(defrule wyzel_niemiecki
	(pies)
	(grupa wyzly|OBOJETNIE)
	(wysokosc 58|59|60|61|62|63|64|65|66|67|68|69|70|OBOJETNIE)
	(wlos krotki|gladki|szorstki|dlugi|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie mysliwski|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  WYZEL NIEMIECKI  <======
 Pozostawiony bez opieki moze niszczyć sprzety.
 Lubi scigac poruszajace sie obiekty" crlf))

(defrule wyzel_wietnamski
	(pies)
	(grupa wyzly|OBOJETNIE)
	(wysokosc 60|61|62|63|64|65|66|67|68|69|70|OBOJETNIE)
	(wlos gladki|ktotki|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie towarzystwo|mysliwski|obroncastroz|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  WYZEL WIETNAMSKI KROTKOWLOSY  <======
 Doskonaly i posluszny tropiciel, moze byc też strozem domu.
 Potrafi przyjaznic sie z innymi zwierzetami i z dziecmi." crlf))

(defrule pointer
	(pies)
	(grupa wyzly|OBOJETNIE)
	(wysokosc 62|63|64|65|66|67|68|69|70|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie mysliwski|OBOJETNIE)
	(wydatki 161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  POINTER  <======
 Pozostawiony bez opieki moze niszczyc sprzety.
 Srednio posluszny, wolno sie uczy." crlf))

(defrule seter_angielski
	(pies)
	(grupa wyzly|OBOJETNIE)
	(wysokosc 61|62|63|64|65|66|67|68|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie towarzystwo|mysliwski|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  SETER ANGIELSKI  <======
 Szybko sie uczy (zlego takze!).
 Choc bywa uparty, to doskonaly i cierpliwy towarzysz dla dzieci." crlf))

(defrule seter_irlandzki
	(pies)
	(grupa wyzly|OBOJETNIE)
	(wysokosc 64|65|66|67|68|69|70|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|mysliwski|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  SETER IRLANDZKI  <======
 Bardzo inteligentny, szybko sie uczy i dlugo pamieta.
 Wymaga konsekwentnego prowadzenia juz od szczeniecia." crlf))

(defrule labrador_retriever
	(pies)
	(grupa wodne|OBOJETNIE)
	(wysokosc 53|54|55|56|57|58|OBOJETNIE)
	(wlos krotki|gladki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie towarzystwo|praca|mysliwski|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  LABRADOR RETRIEVER  <======
 Przyjacielskie, inteligentne, lagodne, latwe do prowadzenia,
 doskonale dla poczatkujacych włascicieli.
 Lubia wode i aportowanie." crlf))

(defrule golden_retriever
	(pies)
	(grupa wodne|OBOJETNIE)
	(wysokosc 54|55|56|57|58|59|60|61|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|praca|mysliwski|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  GOLDEN RETRIEVER  <======
 Spokojny i lagogny pies rodzinny.
 Zdolnosc do obrony niewielka.
 Idealny dla dzieci." crlf))

(defrule cocker_spaniel_amerykanski
	(pies)
	(grupa wodne|OBOJETNIE)
	(wysokosc 35|36|37|38|39|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  COCER SPANIEL AMERYKANSKI  <======
 Psy tej rasy sa aktywne, lagodne i ruchliwe.
 Bardzo posluszne, szybko sie ucza." crlf))

(defrule clumber_spaniel
	(pies)
	(grupa wodne|OBOJETNIE)
	(wysokosc 45|46|47|48|49|50|51|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  CLUMBER SPANIEL  <======
 Nie wymagaja wiele ruchu.
 Srednio posluszne, nie wykazuja sklonnosci do dominacji." crlf))

(defrule irlandzki_spaniel_wodny
	(pies)
	(grupa wodne|OBOJETNIE)
	(wysokosc 55|56|57|58|59|OBOJETNIE)
	(wlos krotki|dlugi|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie praca|mysliwski|towarzystwo|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  IRLANDZKI SPANIEL WODNY  <======
 Psa nie polecana dla dzieci.
 Spaniele wodne zyja okolo 12 lat." crlf))

(defrule maltanczyk
	(pies)
	(grupa ozdobne|OBOJETNIE)
	(wysokosc 21|22|23|24|25|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  MALTANCZYK  <======
 Latwy do ulozenia; aktywny - lubi zabawe.
 Nie wykazuje tolerancji wobec dzieci i osob mu nieznanych." crlf))

(defrule pudel_miniaturowy
	(pies)
	(grupa ozdobne|OBOJETNIE)
	(wysokosc 28|29|30|31|32|33|34|35|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  PUDEL MINIATUROWY  <======
 Bardzo inteligentne i skore do nauki pieski.
 Aktywne i zywe, ale nadaja sie rowniez dla osob starszych." crlf))

(defrule pudel_sredni
	(pies)
	(grupa ozdobne|OBOJETNIE)
	(wysokosc 35|36|37|38|39|40|41|42|43|44|45|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  PUDEL SREDNI  <======
 Aktywne i skore do zabawy w kazdym wieku, latwo sie przystosowuja do kazdej sytuacji.
 Wymagaja niewiele ruchu." crlf))

(defrule pudel_duzy
	(pies)
	(grupa ozdobne|OBOJETNIE)
	(wysokosc 44|45|46|47|48|49|50|51|52|53|54|55|56|57|58|59|60|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie praca|towarzystwo|OBOJETNIE)
	(wydatki 251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  PUDEL DUZY  <======
 Rasa dlugowieczna, zrownoważona, latwo przystosowujaca sie do kazdych warunkow.
 Musi byc strzyzony 3-4 razy do roku." crlf))

(defrule chinski_piesek_bezwlosy
	(pies)
	(grupa ozdobne|OBOJETNIE)
	(wysokosc 23|24|25|26|27|28|29|30|31|32|33|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  CHINSKI PIESEK BEZWLOSY (CHINSKI GRZYWACZ)  <======
 Przywiazane do wlasciciela pieski o bardzo delikatnym zdrowiu,
 raczej dla osob stale przebywajacych w domu, ruchliwe i wszedobylskie.
 Nie wytwarzaja alergenow." crlf))

(defrule lhasa_apso
	(pies)
	(grupa ozdobne|OBOJETNIE)
	(wysokosc 25|26|27|28|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  LHASA APSO  <======
 Stanowczy, nieufny, dosc niezalezny.
 Rasa odporna, dlugowieczna.
 Dogaduje sie z innymi zwierzetami." crlf))

(defrule shih_tzu
	(pies)
	(grupa ozdobne|OBOJETNIE)
	(wysokosc 25|26|27|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja dominujacy|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  SHIH-TZU  <======
 Przyjazne, lecz zadziorne, bardzo dekoracyjne pieski.
 Trudno nauczyc je czystosci." crlf))

(defrule dalamtynczyk
	(pies)
	(grupa ozdobne|OBOJETNIE)
	(wysokosc 55|56|57|58|59|60|61|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie praca|obronastroz|towarzystwo|OBOJETNIE)
	(wydatki 161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  DALMATYNCZYK  <======
 Wymaga duzo ruchu, intensywnych spacerow.
 Nalezy mu wymyslac zajecia.
 Przy zakupie wskazane jest sprawdzic sluch." crlf))

(defrule pekinczyk
	(pies)
	(grupa ozdobne|OBOJETNIE)
	(wysokosc 20|21|22|23|24|25|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  PEKINCZYK  <======
 Przyjazny i oddany pies jednego wlasciciela.
 Nelezy chronic przed urazami wypukle oczy." crlf))

(defrule buldog_francuski
	(pies)
	(grupa ozdobne|OBOJETNIE)
	(wysokosc 25|26|27|28|29|30|31|32OBOJETNIE)
	(wlos gladki|krotki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  BULDOG FRANCUSKI  <======
 Malo odporny na upaly.
 Moze bawic sie z dziecmi." crlf))

(defrule mops
	(pies)
	(grupa ozdobne|OBOJETNIE)
	(wysokosc 25|26|27|28|29|30|31|OBOJETNIE)
	(wlos krotki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer do20|21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  MOPS (PUG)  <======
 Pies ten jest kontaktowy i towarzyski, wiec nie znosi najlepiej dlugotrwalej samotności.
 Wykazuje dosc znaczny stopien posluszenstwa" crlf))

(defrule chart_afganski
	(pies)
	(grupa charty|OBOJETNIE)
	(wysokosc 64|65|66|67|68|69|70|71|72|73|74|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny dosyc|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|mysliwski|OBOJETNIE)
	(wydatki 201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  CHART AFGANSKI  <======
 Cichy w domu.
 Lubi zabawy w ruchu.
 Psy tej rasy toleruja dzieci, jednak czesta daza do dominacji nad nimi." crlf))

(defrule chart_rosyjski
	(pies)
	(grupa charty|OBOJETNIE)
	(wysokosc 73|74|75|76|77|78|79|80|81|82|83|OBOJETNIE)
	(wlos dlugi|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKz|NIE|OBOJETNIE)
	(miejsce duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie praca|towarzystwo|mysliwski|obroncastroz|OBOJETNIE)
	(wydatki 251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  CHART ROSYJSKI (BORZOJ)  <======
 Psa tego cechuje dostojny spokoj oraz dosc duza rezerwa wobec obcych.
 W walce jest przeciwnikiem bezkompromisowym, silnym i odwaznym." crlf))

(defrule charcik_wloski
	(pies)
	(grupa charty|OBOJETNIE)
	(wysokosc 32|33|34|35|36|37|38|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny bardzo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce malemieszkanie|duzemieszkanie|dom|domzwybiegiem|OBOJETNIE)
	(spacer 21do40|41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|mysliwski|OBOJETNIE)
	(wydatki 60do110|111do160|161do200|201do150|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  CHARCIK WLOSKI (PICCOLO LEVRIERO ITALIANO)  <======
 Z trudem daje sie nauczyc czystosci.
 Wesoly, energiczny, idealny dla dzieci." crlf))

(defrule chart_angielski
	(pies)
	(grupa charty|OBOJETNIE)
	(wysokosc 41|42|43|44|45|46|47|OBOJETNIE)
	(wlos gladki|OBOJETNIE)
	(dominacja ulegly|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce domzwybiegiem|OBOJETNIE)
	(spacer od60|OBOJETNIE)
	(przeznaczenie towarzystwo|OBOJETNIE)
	(wydatki 111do160|161do200|201do250|251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  CHART ANGIELSKI (WHIPPET)  <======
 Nie jest to rasa dla ludzi zapracowanych, nie majacych czasu na spacery,
 nie powinno sie zostawiac whippeta samego w domu na dluzszy czas." crlf))

(defrule chart_szkocki
	(pies)
	(grupa charty|OBOJETNIE)
	(wysokosc 71|72|73|74|75|76|77|78|79|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci NIE|OBOJETNIE)
	(miejsce dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie mysliwski|OBOJETNIE)
	(wydatki 251do300|od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  CHART SZKOCKI  <======
 Rzadko szceka.
 Przyjacielski, spokojny, o silnym instynkcie lowieckim." crlf))

(defrule chart_irlandzki
	(pies)
	(grupa charty|OBOJETNIE)
	(wysokosc 80|81|82|83|84|85|86|87|88|89|90|OBOJETNIE)
	(wlos szorstki|OBOJETNIE)
	(dominacja posredni|OBOJETNIE)
	(aktywny malo|OBOJETNIE)
	(dzieci TAKs|TAKz|NIE|OBOJETNIE)
	(miejsce dom|domzwybiegiem|OBOJETNIE)
	(spacer 41do60|od60|OBOJETNIE)
	(przeznaczenie towarzystwo|mysliwski|OBOJETNIE)
	(wydatki od300|OBOJETNE)
	=>
	(assert (brak))
	(printout t crlf "     ======>  CHART IRLANDZKI (WILCZARZ)  <======
 Pies o wielkich rozmiarach, wymagajacy i drogi w utrzymaniu.
 Samym wygladem odstrasza intruza.
 Bardzo (czasami nadmiernie) opiekunczy w stosunku do dzieci." crlf))