:- module(utilities, [setup_mess/1, line/0], []).

% --------------------------------------------------------------------------
% Utilities
% --------------------------------------------------------------------------

setup_mess(M) :-
	line,
	display_list(['* '|M]),
	flush_output.

line :- 
	display(
'--------------------------------------------------------------------------\n'
               ).

