inverseaza([],R,R):-!.
inverseaza([H|T],R,Q):- inverseaza(T,R,[H|Q]).
ex1([L1|_],[Q1|Q],R):- L1 =< Q1, inverseaza([Q1|Q],R,[]),!.
ex1([L1|L],[Q1|Q],R):- L1 > Q1, ex1(L,[L1,Q1|Q],R).
candidat([H|T],H,T).
candidat([_|T],E,R):- candidat(T,E,R).
c2([H|T],H,T):-!.
apel(L,Q):- candidat(L,E1,L2),c2(L2,E2,L3),E1 < E2, ex1(L3,[E2,E1],Q).
start(L,R):- findall(Q, apel(L,Q), R).