%% ?- answer.

answer :-
    clause(atom(Value), Body).