%% ?- answer(X0).

answer(X) :- slice([a, b, c, d], 1, 2, X).