split([],[],[]).
split([X|Xs],[X|Ys],Zs) :- split(Xs,Zs,Ys).