escribecadena([]) :- !.
escribecadena([H|T]) :- put(H), escribecadena(T).