Напишите программу family.pro, описывающую всех членов Вашей семьи

DOMAINS 
  имя_и_фамилия,пол,профессия = string 
  Возраст = integer 
 отец, мать, ребенок=symbol
 
PREDICATES
 
родители (отец, мать, ребенок) 
личность(имя_и_фамилия, пол, Возраст, профессия) 
 
 
CLAUSES
родители (владимир_зуев, наталья_зуева, андрей_зуев).
родители (владимир_зуев, наталья_зуева, александрр_зуев).
 
родители (александр_зуев, мария_зуева, владимир_зуев).
родители (александр_зуев, мария_зуева, людмила_зуева).
родители (александр_зуев, мария_зуева, ольга_зуева).
 
родители (григорий_шихов, александра_шихова, наталья_зуева).
родители (григорий_шихов, александра_шихова, виталий_шихов).
 
личность (владимир_зуев, мужчина, 60, чп).
личность (наталья_зуева, женщина, 56, домохозяйка). 
личность (андрей_зуев, мужчина, 27, техник_по_ремонту_копировально_принтерной_техники).
личность (александрр_зуев, мужчина, 25, студент).
 
личность (мария_зуева, женщина, 95, пенсионерка).
личность (александр_зуев, мужчина, 85, пенсионер).
личность (александра_шихова, женщина, 93, пенсионерка).
личность (григорий_шихов, мужчина, 94, пенсионер).
личность (людмила_зуева, женщина, 61, чп).
личность (ольга_зуева, женщина, 56, конструктор_летальных_аппаратов).
личность (виталий_шихов, мужчина, 58, мастер_производства).
 
        
 
GOAL
 
родители (отец, _, александрр_зуев),личность (отец, _, _, Профессия_отца).