:- op(300, xfy, was).
:- op(300, fy, the).
:- op(300, xfy, of).

jim was the secretary of the department.
kevin was not.

:- op(300, fy, deleting).
:- op(200, xfy, from).
:- op(200, xfy, gives).

%deleting(Item, [Item|_], Item).
%deleting(Item, [Item|Tail], Result) :-
%	deleting(Item, Tail, Result).

%
%deleting(Item, List, Result) :-
%	delete(Item, List, Result).

%from(Item, List, Result) :-
%	delete(Item, List, Result).

%gives(Result, Result).

deleting I from L gives Res :- delete(L, I, Res).

:- op(300, fy, concatenating).
:- op(200, xfy, and).

concatenating X and Y gives Res :- append(X, Y, Res).