编写一个描述亲属关系的prolog程序，然后再给出一些事实数据，建立一个小型演绎数据库。可以以父亲和母亲为基本关系（作为基本谓词），再由此来描述祖父、祖母、兄弟、姐妹以及其他亲属关系。

以下是一个简单的描述亲属关系的Prolog程序：

% 父亲和母亲关系的定义
father(X, Y) :- parent(X, Y), male(X).
mother(X, Y) :- parent(X, Y), female(X).

% 祖父和祖母关系的定义
grandfather(X, Y) :- father(X, Z), parent(Z, Y).
grandmother(X, Y) :- mother(X, Z), parent(Z, Y).

% 兄弟和姐妹关系的定义
brother(X, Y) :- parent(Z, X), parent(Z, Y), male(X), X \= Y.
sister(X, Y) :- parent(Z, X), parent(Z, Y), female(X), X \= Y.

% 其他亲属关系的定义
uncle(X, Y) :- parent(Z, Y), brother(X, Z).
aunt(X, Y) :- parent(Z, Y), sister(X, Z).
cousin(X, Y) :- parent(Z, X), parent(W, Y), brother(Z, W); sister(Z, W).

% 事实数据
parent(john, mary).
parent(john, tom).
parent(mary, ann).
parent(mary, bob).
parent(tom, lisa).
parent(tom, jim).

male(john).
male(tom).
male(bob).
male(jim).

female(mary).
female(ann).
female(lisa).

% 查询例子
?- grandfather(X, lisa).
X = john.

?- sister(X, tom).
X = mary.

以上程序中，我们定义了父亲和母亲关系的基本谓词`father`和`mother`，并通过`parent`谓词来描述了父母和子女之间的关系。然后，我们又定义了祖父、祖母、兄弟、姐妹、叔叔、阿姨和表兄弟/表姐妹等亲属关系。最后，我们给出了一些事实数据，包括每个人的父母和性别。通过这些数据，我们可以建立一个小型演绎数据库，用来查询各种亲属关系。例如，我们可以查询`grandfather(X, lisa)`，来找到`lisa`的祖父是谁；或者查询`sister(X, tom)`，来找到`tom`的姐妹是谁。