%% ?- answer.

answer :-
    atom_length(atom, -1).