Prolog 从数据库检索数据而不打印

如何从数据库检索数据以在条件下使用它，但我不想将其打印到控制台。 我要做的问题是从数据库中检索一个父母年龄相差15岁的孩子

这是我正在使用的代码，用于打印父母双方的年份

family(person(_,_,date(_,_,Year1),_),
       person(_,_,date(_,_,Year2),_),
       [person(Name,Surname,_,_)|Y]), abs(Year1-Year2) >= 15.

使用查询作为主体定义谓词规则（在源文件中）。例如：

child_with_parents_age_gap(Gap, Name, Surname) :-
    family(
        person(_,_,date(_,_,Year1),_),
        person(_,_,date(_,_,Year2),_),
        [person(Name,Surname,_,_)| _]
    ),
    abs(Year1-Year2) >= Gap.