yamashita1238

:- use_module(library(socket)).

write_atom(Stream,Atom) :-
  atom_codes(Atom,Codes),
  write_codes(Stream,Codes).

write_codes(_,[]) :- !.
write_codes(Stream,[Code|Tail]) :-
  put_code(Stream,Code),
  write_codes(Stream,Tail).