quitar_espacios:-
		get0(C),
		put(C),
		resto(C).

resto(46):- !.		/* El punto "." indica el final */

resto(32):- 		/* Se detecta un espacio en blanco */
	 	!,
		get(C),	/* Se saltan los demás espacios en blanco y se lee el siguiente carácter */
		put(C),
		resto(C).

resto(_):- 		/* Se repite el proceso */
	quitar_espacios.