1:-module(debug,
    2     [write_debug/1,writeln_debug/1]).    3
    4:- use_module(sciff_options).    5
    6
    7
    8writeln_debug(Message) :-
    9	get_option(sciff_debug, on),
   10	!,
   11	write(Message), nl.
   12writeln_debug(_).
   13
   14write_debug(Message) :-
   15	get_option(sciff_debug, on),
   16	!,
   17	write(Message).
   18write_debug(_)