:- use_module('../src/absl').		%use the A-Bus service library module

:- write('*'),nl.
:- write('*'),nl.
:- write('* call top/0 to send a default message (NOTE: edit URIs before calling!)'),nl.
:- write('* or test_send/3 to compose your own message'),nl.
:- write('*'),nl.
:- write('*'),nl.

top :-
	Sender="http://trogon.csd.abdn.ac.uk:12345/akt/agent/me",
	Receiver="http://quail.csd.abdn.ac.uk:12345/",
	Content="hello",					%a dummy content
	test_send(Sender,Receiver,Content).

test_send(Sender,Receiver,Content) :-
	compose_message(Sender,Receiver,Content,Msg),
	send_message(Msg).

