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).