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

:- write('*'),nl.
:- write('*'),nl.
:- write('* call top/1 to listen to a specified port'),nl.
:- write('*'),nl.
:- write('*'),nl.


top(Port) :-
	receive_message(Port,Msg),
	xml_to_terms(Xml,Msg),
	print_string(Xml),
	nl.
