   apja(a,b).
   apja(a,c).
   apja(b,d).
   apja(b,e).
   apja(e,f).
   ose(X,Y):-apja(X,Y).
   ose(X,Y):-apja(X,Z),ose(Z,Y).
  