Графические интерфейсы на базе SWI-Prolog/XPCE не запускается

Формулировка задачи:

Имеется файл s48.pl. Захожу в языке в swi-prolog в нужную папку, где находятся s48.pl и prog_1.pl. prog_1.pl работает поиск по базе тоже. Но не знаю как запустить s48.pl чтобы появлялась панель окошками и кнопки. Пробовал: [s48.pl]. True. А GUI не появляется. Какую команду ввести я не знаю и книжке не рассмотрено. В интернете тоже не нашел. В внутренней справке команды ввожу в консоль- появляются разные примитивы, т.е библиотека работоспособна.

s48.pl

/*Программа 2.2 */
:- include('prog_1.pl').
 
gui_to_likes :-

new(MyWin, dialog('Интерфейс к БЗ Любят')),
send_list(MyWin, append, [
                     new(Who,text_item('Любит кто')),
                     new(MyList, list_browser),
                     button('Любит что:', message(@prolog,
                                                  output, MyList, Who?selection )),
                     button(выход, message(MyWin, destroy))
]),
send(MyList, alignment, center),
send(MyWin, open(point(100,400))).
 
output(FrmList,X) :-
send(FrmList, clear),
likes(X,W),
send(FrmList, append, W),
fail.

Решение задачи: «Графические интерфейсы на базе SWI-Prolog/XPCE не запускается»

Листинг программы

/* Программа 2.1 */
likes('Иван','Марья').% факт
likes('Петр','футбол').% факт
likes('Иван',X) :- likes('Петр',X). % правило
 
go(X,стадион) :- likes(X,футбол).

Объяснение кода листинга программы

Программа 2.1
Факт: likes('Иван','Марья').
Факт: likes('Петр','футбол').
Правило: likes('Иван',X) :- likes('Петр',X).
Правило: go(X,стадион) :- likes(X,футбол).