thiswillwork(ListA,ListB,[ListA|ListB]).

evenodd([H],odd).
evenodd([F,S],even).
evenodd([F,S|T],Ans):-
	evenodd(T,Ans).

sum([],Answer,Answer).
sum([H|T],Temp,Answer):-
	Temp2 is Temp+H,
	sum(T,Temp2,Answer).

summit(List,Answer):-
	sum(List,0,Answer).

delete(A,[A|T],T).
delete(A,[B|T],[B|T2]):-
	delete(A,T,T2).