:-op(310, xfy, was).
:-op(320, xfy, of).
:-op(300, fx, the).
john was the secretary of the department.

:-op(520,fx,deleting).
:-op(500,xfx,from).
:-op(510,xfx,gives).

delMember(_, [], []) :- !.
delMember(X, [X|Xs], Y) :- !, delMember(X, Xs, Y).
delMember(X, [T|Xs], Y) :- !, delMember(X, Xs, Y2), append([T], Y2, Y).

deleting Item from List gives This :- delMember(Item, List, This).
:-op(500,fx,concatenating).
:-op(490,xfy,and).
concatenating L1 and L2 gives R:-append(L1,L2,R).
concatenating L1 and L2 and L3 gives R:-concatenating L1 and L2 gives N,
    concatenating N and L3 gives R.

squares:-write('Enter a number: '),
    read(X),
    X\=stop,
    Pow is X*X,
    writef('%d%d%d\n',[X,"^2=",Pow]),
    squares.

writelist([]).
writelist([X|[]]):-writef('%d',[X]).
writelist(List):-List=[Head|Tail],
    writef('%d ',[Head]),
    writelist(Tail).