% MÉTODO 2
% Carga los átomos de un fichero en una lista

cargar(FicheroEntrada,Lista) :-
	open(FicheroEntrada,read,FlujoEntrada),
	leerFichero(FlujoEntrada,Lista),
	close(FlujoEntrada),
	!.

leerFichero(FlujoEntrada,Lista):- 
    read(FlujoEntrada,N), 
	procesar(FlujoEntrada,N,Lista).


procesar(FlujoEntrada,N,[N|Cola]):-
		N \= end_of_file,
		!,
		leerFichero(FlujoEntrada,Cola).

procesar(_,_,[]).
