Определить функцию GENERATION-GAP, которая возвращает количество поколений между предком и потомком в генеалогическом
дереве.
FAMILY:
(setf family '((colin nil nil) (deirdre nil nil) (arthur nil nil) (kate nil nil) (frank
nil nil) (linda nil nil) (suzanne colin deirdre) (bruce arthur kate) (charles
arthur kate) (david arthur kate) (ellen arthur kate) (george frank linda) (hillary
frank linda) (andre nil nil) (tamara bruce suzanne) (vincent bruce suzanne)
(wanda nil nil) (ivan george ellen) (julie george ellen) (marie george ellen)
(nigel andre hillary) (frederick nil tamara) (zelda vincent wanda) (joshua ivan
wanda) (quentin nil nil) (robert quentin julie) (olivia nigel marie) (peter nigel
marie) (erica nil nil) (yvette robert zelda) (diane peter erica)))