%% ?- answer.

answer :-
    current_predicate(4).