sublist([],[]).
sublist([_|Xs],Ys) :- sublist(Xs,Ys).
sublist([X|Xs],[X|Ys]) :- sublist(Xs,Ys).