father(adam,ben).
father(ben,claire).
father(ben,chris).

grandfather(Old,Young) :- 
   father(Old,Middle),
   father(Middle,Young).
