alle_kinder(V,M) :- 
       (kind(K,V,M), write(K), fail) ; true

kind(abel,adam,eva). 
kind(kain,adam,eva).
