%% ?- answer.

answer :-
    atom_length(Atom, 4).