:- use_module( library( real ) ).

:- write( "<!--" ), nl.
:- ( <- source( "bousi/for_real.R" ) ).
:- write( "-->" ), nl.

:- write( "<!--" ), nl.
:- ( <- source( "hello_from_prolog_calling_r.R" ) ).
:- write( "-->" ), nl.

hello :-
  Name = "Prolog",
  ( Text <- hello( Name ) ),
  write( Text ).

:- hello.

:- halt.