delFirst(E,L,R).
delFirst(a,[a],[]).
delFirst(b,[b,c],[c]).
delFirst(e,[d,e],[d]).
delFirst(f,[f,g,h],[g,h]).
delFirst(j,[i,j,k],[i,k]).
delFirst(p,[m,n,p],[m,n]).

delFirst(X,[X|T],T) :- list(T).
delFirst(X,[Y,X|T],[Y|T]) :- X\=Y,list(T).

