subList(S,L).
subList([],[]).
subList([],[a]).
subList([b],[b]).
subList([c],[c,d]).
subList([e],[f,e]).

subList([],L).
subList([X],L):-member(L,X).

