A short code poem in Prolog

:- dynamic word/1.

% a short code poem.
%download SWI prolog, enter in all the code - execute the poem by entering %binarypoem210.
% then press enter


binarypoem210:-nl,word(POEM),
print(POEM),
nl,nl,print
('please type: deplete.
then press return to enter
into the poem/code/space').

word([a,l,l,y,o,u,l,o,v,e,t,o,l,o,s,e]).



deplete:- word(EMPTINESS),
member(a,EMPTINESS),delete(EMPTINESS,a,POEM),
assert(word(POEM)),
retract(word(EMPTINESS)),nl,print(POEM).

deplete:- word(INFLUX),member(y,INFLUX),
delete(INFLUX,y,STATE),
assert(word(STATE)),
retract(word(INFLUX)),
nl,print(STATE).

deplete:- word(ING),member(e,ING),
delete(ING,e,ALLTHATYOUARE),
assert(word(ALLTHATYOUARE)),
retract(word(ING)),nl,print(ALLTHATYOUARE).


deplete:- word(BUFFERZONE),
member(t,BUFFERZONE),
member(s,BUFFERZONE),
delete(BUFFERZONE,t,CONDOLEEZA),
delete(CONDOLEEZA,s,OILTANKER),
assert(word(OILTANKER)),
retract(word(BUFFERZONE)),
nl,print(OILTANKER).

deplete:- word(HISTORY),
member(u,HISTORY),
member(v,HISTORY),
delete(HISTORY,u,MEMORY),

delete(MEMORY,v,DOCUMENT),
assert(word(DOCUMENT)),
retract(word(HISTORY)),
nl,print(DOCUMENT).