%% ?- answer(X0, X1).

answer(substring_last_char, X) :- substring('abcd', 3, 1, X).