clan(X,[X|_]) :- !.
clan(X,[_|Y]) :- clan(X,Y).

/* poziva se sa clan(Elem,Lista). */