%% goal: answer

answer :-
    atom_length(Atom, 4).