remove in Prolog

[mjhawk]

I am new to Prolog and need some assistance. I have this problem where the goal is to write a program to remove all items bought from your buying list with
remove(Buy+,Bought+,Rest-) where Buy is a list of items needed, Bought is a list of items bought, and Rest is a list of items you still have to buy.

 

[qwaz01]

the best i can do

remove(X,[X|K],K).
remove(X,[K|L],[K|R]) :- remove(X,L,R).