%% ?- answer(X0).

answer(Parts) :- split('abc', ',', Parts).