1% Code specific to the host Prolog language
    2% Version for SICStus Prolog 4
    3
    4:- module(sicstus_specific,
    5    [writeln/1, text_style/1]).    6
    7writeln(X):-
    8    write(X), nl.
    9
   10text_style(Num):-
   11    write('\e['),
   12    write(Num),
   13    write('m')