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