concatenar([],L,L).

concatenar([X|L1],L2,[X|L3]):- concatenar(L1,L2,L3).


/* 
 * elementos extraer todos los elementos de una lista con sublistas
 *  Cola los almacena en una lista simple
 */

elementos([],[]).

elementos([X|Cola],R):-
	elementos(X,R1),!,
	elementos(Cola,R2),
	concatenar(R1,R2,R).

elementos([X|Cola],R):-
	elementos(Cola,R1),
	concatenar([X],R1,R).
