% Adapted from rdf-prolog-interchange.
% This standalone program combines generated RDF input with its ISO Prolog rules.

% Generated by rdf-prolog-interchange.

% RDF terms use rdf(Subject, Predicate, Object, Graph).

rdf(iri('https://example.org/welcome'), iri('https://example.org/label'), literal('مرحبا', lang('ar', rtl)), default_graph).
rdf(iri('https://example.org/welcome'), iri('https://example.org/label'), literal('Welcome', lang('en', ltr)), default_graph).

% Preserve RDF 1.2 base-direction metadata while deriving display labels.
%% ?- result_rdf(_, _, _, _).

result_rdf(S, iri('https://example.org/displayLabel'), Label, G) :-
  rdf(S, iri('https://example.org/label'), Label, G).

% ISO Prolog helper: print the complete test result as rdf/4 facts.
write_results :-
  result_rdf(S, P, O, G),
  write_term(rdf(S, P, O, G), [quoted(true)]),
  write('.'),
  nl,
  fail.
write_results.