:- dynamic word/1.% a short code poem.%download SWI prolog, enter in all the code - execute the poem by entering %binarypoem210.% then press enterbinarypoem210:-nl,word(POEM),print(POEM),nl,nl,print('please type: deplete.then press return to enterinto 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).