% impure prolog

write_n3 :- seeing(F), write_n3(F).
write_n3(F) :- 
   property(S, P, O),
   write(F, '<'), write(F, S), write(F, '> '),
   write(F, '<'), write(F, P), write(F, '> '),
   write(F, '<'), write(F, O), writeln(F, '>.'),
   fail.
write_n3(_).