(PROGN (RPLACD (QUOTE R) (QUOTE (FEXPR (LAMBDA (X A) (HREL (CAR X) (CADR X)))))) (RPLACD (QUOTE HREL) (QUOTE (EXPR (LAMBDA (P1 P2) (COND ((EQ P1 P2) (LIST (QUOTE SAME))) ((EQ P1 (SP P2)) (LIST (SOS P1))) (T (DREL P1 P2 (FPB P1 P2)))))))) (RPLACD (QUOTE DREL) (QUOTE (EXPR (LAMBDA (P1 P2 P) (COND ((NULL P) (QUOTE (NOT RELATED BY BLOOD))) (T ((LAMBDA (D1 D2) (COND ((ZEROP D1) (DANC P1 D2)) ((ZEROP D2) (DDES P1 D1)) (T (NDREL P1 P2 D1 D2)))) (CAR P) (CADR P)))))))) (RPLACD (QUOTE DDES) (QUOTE (EXPR (LAMBDA (P1 P2) (AGG (SOC P1) P2))))) (RPLACD (QUOTE DANC) (QUOTE (EXPR (LAMBDA (P1 P2) (AGG (SOPA P1) P2))))) (RPLACD (QUOTE NDREL) (QUOTE (EXPR (LAMBDA (P1 P2 D1 D2) (COND ((AND (EQ D1 1) (EQ D2 1)) (LIST (SOSI P1))) ((EQ D1 D2) (LIST (SUB1 D1) (QUOTE COUSIN))) ((EQ D1 1) (ANSI P1 D2)) ((EQ D2 1) (SIDE P1 D1)) (T (LIST (SUB1 D1) (QUOTE COUSIN) (ABS (MINUS D2 D1)) (QUOTE REMOVED)))))))) (RPLACD (QUOTE FPB) (QUOTE (EXPR (LAMBDA (P1 P2) (BFS (LIST (LIST P1 0 0 (QUOTE VILDHAVRE))) P2))))) (RPLACD (QUOTE BFS) (QUOTE (EXPR (LAMBDA (P1 P2) (COND ((NULL P1) NIL) (T ((LAMBDA (D1) (COND ((EQ (CAR D1) P2) (LIST (CADR D1) (CADDR D1))) (T (CREL D1 P2 (CDR P1))))) (CAR P1)))))))) (RPLACD (QUOTE CREL) (QUOTE (EXPR (LAMBDA (P1 P2 D1) (BFS (APPEND D1 (BNUN (CAR P1) (CADR P1) (CADDR P1) (CADDDR P1))) P2))))) (RPLACD (QUOTE BNUN) (QUOTE (EXPR (LAMBDA (P1 P2 D1 D2) (APPEND (MUN (SONG P1 (QUOTE CHILD)) P1 P2 (ADD1 D1) D2) (COND ((ZEROP D1) (MUN (SONG P1 (QUOTE PARENT)) P1 (ADD1 P2) D1 D2)) (T NIL))))))) (RPLACD (QUOTE MUN) (QUOTE (EXPR (LAMBDA (P1 P2 D1 D2 P) (COND ((NULL P1) NIL) ((OR (EQ (CAR P1) (QUOTE VILDHAVRE)) (EQ (CAR P1) P)) (MUN (CDR P1) P2 D1 D2 P)) (T (CONS (LIST (CAR P1) D1 D2 P2) (MUN (CDR P1) P2 D1 D2 P)))))))) (RPLACD (QUOTE BORN) (QUOTE (EXPR (LAMBDA (P P1 P2 S) (PROGN (CUN P) (BUN P S) (CIP P (QUOTE CHILD) P1) (CIP P (QUOTE CHILD) P2) (COP P (QUOTE PARENT) P1) (COP P (QUOTE PARENT) P2) P))))) (RPLACD (QUOTE MA) (QUOTE (EXPR (LAMBDA (P1 P2) (PROGN (CAP P1 (QUOTE SPOUSE) P2) (LIST P1 P2)))))) (RPLACD (QUOTE AGG) (QUOTE (EXPR (LAMBDA (P1 P2) (COND ((EQ P2 1) (LIST P1)) ((EQ P2 2) (LIST (QUOTE GRAND) P1)) (T (CONS (QUOTE GREAT) (AGG P1 (SUB1 P2))))))))) (RPLACD (QUOTE AG) (QUOTE (EXPR (LAMBDA (P1 P2) (COND ((EQ P2 1) (LIST P1)) (T (CONS (QUOTE GREAT) (AG P1 (SUB1 P2))))))))) (RPLACD (QUOTE ANSI) (QUOTE (EXPR (LAMBDA (P1 P2) (AG (SOU P1) (SUB1 P2)))))) (RPLACD (QUOTE SIDE) (QUOTE (EXPR (LAMBDA (P1 P2) (AG (SONI P1) (SUB1 P2)))))) (RPLACD (QUOTE SP) (QUOTE (EXPR (LAMBDA (P) (CAR (SONG P (QUOTE SPOUSE))))))) (RPLACD (QUOTE SOC) (QUOTE (EXPR (LAMBDA (P) (CBS P (QUOTE DAUGHTER) (QUOTE SON)))))) (RPLACD (QUOTE SOPA) (QUOTE (EXPR (LAMBDA (P) (CBS P (QUOTE MOTHER) (QUOTE FATHER)))))) (RPLACD (QUOTE SOS) (QUOTE (EXPR (LAMBDA (P) (CBS P (QUOTE WIFE) (QUOTE HUSBAND)))))) (RPLACD (QUOTE SOU) (QUOTE (EXPR (LAMBDA (P) (CBS P (QUOTE AUNT) (QUOTE ONCLE)))))) (RPLACD (QUOTE SONI) (QUOTE (EXPR (LAMBDA (P) (CBS P (QUOTE NIECE) (QUOTE NEPHEW)))))) (RPLACD (QUOTE SOSI) (QUOTE (EXPR (LAMBDA (P) (CBS P (QUOTE SISTER) (QUOTE BROTHER)))))) (RPLACD (QUOTE CBS) (QUOTE (EXPR (LAMBDA (P P1 P2) (COND ((EQ (S P) (QUOTE FEMALE)) P1) (T P2)))))) (RPLACD (QUOTE S) (QUOTE (EXPR (LAMBDA (P) (VUN P))))) (RPLACD (QUOTE FB) (QUOTE (EXPR (LAMBDA (P S) (PROGN (CUN P) (BUN P S) P))))) (RPLACD (QUOTE CUNI) (QUOTE (EXPR (LAMBDA NIL (PROGN (SETQ UNL NIL) (SETQ UEL NIL) (CUN (QUOTE VILDHAVRE))))))) (RPLACD (QUOTE CUN) (QUOTE (EXPR (LAMBDA (P) (PROGN (SETQ UNL (CONS P UNL)) P))))) (RPLACD (QUOTE BUN) (QUOTE (EXPR (LAMBDA (P1 P2) (PUTPROP P1 (QUOTE VALUE) P2))))) (RPLACD (QUOTE VUN) (QUOTE (EXPR (LAMBDA (P1) (GETPROP P1 (QUOTE VALUE)))))) (RPLACD (QUOTE SUN) (QUOTE (EXPR (LAMBDA NIL UNL)))) (RPLACD (QUOTE CIP) (QUOTE (EXPR (LAMBDA (P1 P P2) (PROGN (A3 P2 P P1) P1))))) (RPLACD (QUOTE COP) (QUOTE (EXPR (LAMBDA (P1 P P2) (PROGN (A3 P1 P P2) P1))))) (RPLACD (QUOTE CAP) (QUOTE (EXPR (LAMBDA (P1 P P2) (PROGN (CIP P1 P P2) (COP P1 P P2)))))) (RPLACD (QUOTE SING) (QUOTE (EXPR (LAMBDA (P1 P2) (SING-1 P1 P2 UEL))))) (RPLACD (QUOTE SING-1) (QUOTE (EXPR (LAMBDA (N1 E U) (COND ((NULL U) NIL) ((AND (EQ (CADAR U) E) (EQ (CADDAR U) N1)) (CONS (CAAR U) (SING-1 N1 E (CDR U)))) (T (SING-1 N1 E (CDR U)))))))) (RPLACD (QUOTE SONG) (QUOTE (EXPR (LAMBDA (P1 P2) (SONG-1 P1 P2 UEL))))) (RPLACD (QUOTE SONG-1) (QUOTE (EXPR (LAMBDA (N1 E U) (COND ((NULL U) NIL) ((AND (EQ (CAAR U) N1) (EQ (CADAR U) E)) (CONS (CADDAR U) (SONG-1 N1 E (CDR U)))) (T (SONG-1 N1 E (CDR U)))))))) (RPLACD (QUOTE DUN) (QUOTE (EXPR (LAMBDA (P) (PROGN (SETQ UNL LIST (REB P UNL)) (SETQ UEL (R3 P UEL)) P))))) (RPLACD (QUOTE REB) (QUOTE (EXPR (LAMBDA (P1 P2) (COND ((NULL P2) NIL) ((EQ (CAR P2) P1) (REB P1 (CDR P2))) (T (CONS (CAR P2) (REB P1 (CDR P2))))))))) (RPLACD (QUOTE R3) (QUOTE (EXPR (LAMBDA (N U) (COND ((NULL U) NIL) ((OR (EQ N (CAAR U)) (EQ N (CADDAR U))) (R3 N (CDR U))) (T (CONS (CAR U) (R3 N (CDR U))))))))) (RPLACD (QUOTE A3) (QUOTE (EXPR (LAMBDA (N1 E N2) (COND ((NULL UEL) (SETQ UEL (LIST (LIST N1 E N2)))) (T (RPLACD (LAST UEL) (LIST (LIST N1 E N2))))))))) (RPLACD (QUOTE F) (QUOTE (FEXPR (LAMBDA (X A) (FB (CAR X) (CADR X)))))) (RPLACD (QUOTE B) (QUOTE (FEXPR (LAMBDA (X A) (BORN (CAR X) (CADR X) (CADDR X) (CADDDR X)))))) (RPLACD (QUOTE M) (QUOTE (FEXPR (LAMBDA (X A) (MA (CAR X) (CADR X)))))) (RPLACD (QUOTE C) (QUOTE (FEXPR (LAMBDA (X A) (C-1 (CAR X) (CADR X) (CDDR X)))))) (RPLACD (QUOTE C-1) (QUOTE (EXPR (LAMBDA (P1 P2 P) (COND ((NULL P) NIL) (T (PROGN (BORN (CAR P) P1 P2 (CADR P)) (C-1 P1 P2 (CDDR P))))))))) (RPLACD (QUOTE CADAR) (QUOTE (EXPR (LAMBDA (P) (CADR (CAR P)))))) (RPLACD (QUOTE CADDR) (QUOTE (EXPR (LAMBDA (P) (CADR (CDR P)))))) (RPLACD (QUOTE CADDDR) (QUOTE (EXPR (LAMBDA (P) (CADR (CDDR P)))))) (RPLACD (QUOTE CADDAR) (QUOTE (EXPR (LAMBDA (P) (CADR (CDAR P)))))) (RPLACD (QUOTE APPEND) (QUOTE (EXPR (LAMBDA (L1 L2) (COND ((NULL L1) L2) (T (CONS (CAR L1) (APPEND (CDR L1) L2)))))))))