%=============REEGLIBAAS====================
kes_on(A):-
    	((inimene(A), nl,nl,write(A), write(' on inimene ')) 	;
    	(jumal(A),      write(A),write(' on jumal ')		;
           write('Ma ei tea '))),
    		           nl,
    	om_mall([_|List]),
    	leia_omadused(A,List).
kes_on(A):-
    	write(A), write(' on tundmatu objekt '),nl.

leia_omadused(_,[]):- !.
leia_omadused(A,[Omadus|List]):-
    om_mall([_|List_1]),
    omadused([A|List_2]),
    otsi_omadust(Omadus,List_1,List_2),!,
    leia_omadused(A,List).
%------------------------------------------
otsi_omadust(Omadus,[Omadus|_],[99999|_]):- !.
otsi_omadust(Omadus,[Omadus|_],[Vaartus|_]):-
 write(Omadus),write(' on '), write(Vaartus), nl,
!.
otsi_omadust(Omadus,[_|List_1],[_|List_2]):- !,
     otsi_omadust(Omadus,List_1,List_2).
%------------------------------------------

%============FAKTIBAAS====================
om_mall([nimi,vanus,sugu,pikkus,kaal]).
%------------------------------------------

omadused([metusala1,1002,mees,180,101]).
omadused([zenon,50,mees,175,83]).
omadused([mari,17,naine,172,70]).
omadused([zeus,10000,mees,300,250]).
omadused([juku,16,mees,175,76]).
omadused([juss,7,mees,130,41]).
omadused([taara,10000,maeaeramata,moeoetmatu,moeoetmatu]).
% omadused([_,maaramata,maaramata,maaramata,maaramata]).

  inimene(peeter).
  inimene(zenon).

  jumal(zeus).
  jumal(ra).

%-------------------------- End Näide 2 ------------------


%-------------------------- Näide 3 ----------------------
ema_lapsed(Mina):-
	ema(Mina,Ema),
	ema(Teine_laps,Ema), Teine_laps \= Mina, write(Teine_laps),write(' '),
	fail.
ema_lapsed(_):-
		write('ja rohkem ei ole').

ema(evelin,mari).
ema(jaak,mari).
%-------------------------- End Näide 3 ----------------------