试编写一个描述亲属关系的PROLOG程序，然后给出一些实时数据，建立一个小型演绎数据库，可以以父亲/母亲-子/女作为基本关系，再由此来描述祖父，祖母，兄弟，姐妹，以及其他亲属关系

在Prolog中，我们可以使用规则和事实来表示亲属关系。下面是一个简单的例子，展示了如何编写一个基础的亲属关系数据库：

% 家庭成员的事实
parent(father, child).
parent(mother, child).

% 祖先和后代的关系
grandparent(grandfather, parent).
grandparent(grandmother, parent).

% 兄弟姐妹关系
sibling(older_sister, younger_sister).
sibling(older_brother, younger_brother).

% 辅助函数，用于查询更复杂的亲属关系
descendant(PersonA, PersonB) :-
    ancestor(PersonA, Parent),
    descendant_recursion(Parent, PersonB).

descendant_recursion(Parent, Parent).
descendant_recursion(Parent, Child) :-
    parent(Parent, Child),
    !.
descendant_recursion(Parent, Child) :-
    grandparent(Parent, GrandParent),
    descendant_recursion(GrandParent, Child).

% 示例查询
?- descendant(father, uncle).

在这个程序中，我们首先定义了家庭成员的基本关系（如父母、子女），以及祖先和孙子的关系。`descendant/2`函数通过递归查询实现了从一个成员到另一个成员的亲属关系。

要测试这个数据库，你可以像这样询问：

?- descendant(father, Uncle).

如果`Uncle`已经存在于数据库中（比如`uncle(older_brother)`），则会返回`true`；如果没有匹配的结果，则会失败并提示需要添加更多的事实。