extremos([],[]):-!.

extremos(L,[P,U]):-
           primero(L,P),
           ultimo(L,U).

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


ultimo([],[]):-!.
ultimo([X],X):-!.
ultimo([_|Cola],R):- ultimo(Cola,R).


