member2([], [X|Xs]).
member2(X,[X|Xs]).
member2(X, [Y|Ys]) :-
    member2(X ,Ys).

member2(X,L):-
    append( _, [X,_], L).

last2(L, X):-
    append(_, [X|[]], L).


nesimo(I, L, X):-
    Al is I-1,
    length(A, Al),
    append(A, [X|_], L).

nesimo(1, {X|_], X).
nesimo(I, [_|R], X):-
    I1 is I-1,
    nesimo(I1, R, X).