insere(E,[],[E]).
insere(E,[X|L], [E,X|L]) :- E < X,!.
insere(E,[E|L], [E|L]) :- !.
insere(E,[X|L], [X|L1]) :- insere(E, L,L1).

%1b

lista2conj([],[]).
lista2conj([X|L], C) :-  lista2conj(L,C1), insere(X, C1, C).