vordle_predikaadiga(List, [Function], X) :-
    Function = paaris_arv,
    include(paaris_arv(), List, X).

vordle_predikaadiga(List, [Function], X) :-
    Function = paaritu_arv,
    include(paaritu_arv(), List, X).

vordle_predikaadiga(List, [Function, Y], X) :-
    Function = suurem_kui,
    include(suurem_kui(Y), List, X).

paaris_arv(X):-
    X mod 2 =:= 0.

paaritu_arv(X):-
    X mod 2 =\= 0.

suurem_kui(X,Y):-
    X < Y.