
%   read rapper-out.nt

:- [ntriples].

go :-
	read_file_to_codes('rapper-out.nt', Codes, []),
	ntriples_text(Triples, _BNodeMap, Codes, ""),
	format('(~n', []),
	checklist(out, Triples),
	format('  noop).~n', []).

out(rdf(S,P,O)) :-
	format('  insert(~q, ~q, ~q),\n', [S,P,O]).

