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')