%% ?- answer.

answer :-
    sub_atom(Atom, 0, 1, After, Sub).