text(X):- özne(Y), güçlü(Y), eylem(Z), diff(Y, Z), append(Y,Z,X), write(X).
text(X):- özne(Y), malum(Z), append(Y,Z,X), write(X).
özne(X):- kişi(X).
eylem(X):- malum(Y), özne(Z), append(Y,Z,X).

diff(X, [_|Y]):- X \= Y .
güçlü([harun]).
kişi([beyza]).
kişi([melis]).
kişi([harun]).
malum([boğar]).

book(ömerseyfettin,yazar,seyfettin).

author(X, Y):- book(Y, Z, T), append(Z, T, X).

max([H], H):-!.
max([H|T], R):- max(T, Rt), max2(H, Rt, R).
max2(H, Rt, H):- H > Rt.
max2(H, Rt, Rt):- H =< Rt.