%% goal: answer

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