hanydb(L, H, Feltetel) :- hanydb(L, 0, H, Feltetel),!.
hanydb([F|T], Eddig, H, Feltetel) :- 
			( %current_atom(Feltetel), 
                                   Term =.. [Feltetel,F], 
			   Term -> Uj is Eddig + 1
				; 
			   Uj is Eddig ), 
                                 hanydb(T, Uj, H, Feltetel).
hanydb([], H, H,_).


feltetel(F) :- F>0.