author_of(Person, Book) :-
    wrote(Person, Book),
    book(Book).