
/* Escribe una lista en una fila */

escribir_fila([]).

escribir_fila([Cabeza|Cola]):-
		write(Cabeza),
		tab(1),
		escribir_fila(Cola).
				
				
/* Escribe una lista en una columna */

escribir_columna([]).

escribir_columna([Cabeza|Cola]):-
		write(Cabeza),
		nl,
		escribir_columna(Cola).



