AIF Lab7

%HW1
%1
:- op(600,xfx,was).
:- op(500,xfy,of).
:- op(400,fx,the).
john was the secretary of the department.


%2
:-op(600,fx,deleting).
:-op(500,xfx,from).
:-op(400,xfx,gives).

deleting _ from [] gives Result:-
	Result=[].

deleting Elem from [Elem|Tail] gives Result:-
	Result=Tail.

deleting Elem from [Head|Tail] gives Result:-
	deleting Elem from Tail gives Tail1,
	Result = [Head|Tail1].