%% ?- answer(X0).

answer(Text) :- substring('abcdef', 2, 0, Text).