% Test the BUILD IN  assert and retract

:- solve(inpfunc()).


% Functions
inpfunc() :- 
	assert(customer(adrian)), 
	println(["add "]).

retfunc(X) :-
	retract(X),
	println(["remove ",X]).

assret(X) :-
	inpfunc(X).
						
% Goal
:- solve(customer(X)).