/* Funciona en las versiones antiguas de prolog */
escribir_cadena([]).
escribir_cadena([Cabeza|Cola]):- 
				put(Cabeza),
				escribir_cadena(Cola).
