Нужно написать программу для курсовой. SWI- prolog

Нужно написать программу по описанию из курсовой(на SWI-Prolog), есть листинг программы, но не факт что рабочий. если не рабочий то приложить рабочий.