
/* 
 *
 * Escritura de una lista con sublistas de forma sangrada 
 *
 * Se hace uso del corte
 */

 
/* El argumento es una Lista que posee Cabeza y Cola */
 
escribir_lista([Cabeza|Cola],Columna):- 			
			!,
			Lugar is Columna + 3, 
			escribir_lista(Cabeza,Lugar),
			escribir_sublista(Cola,Lugar).

/* El argumento es un elemento */
escribir_lista(X,Columna):-
			tab(Columna),
			write(X),
			nl.
 


/* Si es la sublista está vacía, no escribe nada */
escribir_sublista([],_).					


/* El argumento es una Sublista con Cabeza y Cola */

escribir_sublista([Cabeza|Cola],Columna):- 		
			escribir_lista(Cabeza,Columna),
			escribir_sublista(Cola,Columna).

