% From The Art of Eyepl, Chapter 37.
write_event(Path, Event) :-
  open(Path, write, Stream, [type(text)]),
  write_canonical(Stream, Event),
  put_char(Stream, '.'),
  nl(Stream),
  close(Stream).